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1. ABSTRACT 

The PDP-15 Extended Memory Checkerboard test verifies the 
operational status of core memory by testing for core failure 
on halt-selected lines under worst case noise conditions. 

The program tests any memory configuration of from 8K to 
128K words, in 4K segments. Seven patterns are used for 
testing, and these may be selected individually by the operator. 
The program relocates automatically in order to test all 
memory fields from each field. 

2. REQUIREMENTS 

2 . 1 Equipment 

A standard PDP-15 equipped with 8K to 128K words of core memory. 

2 . 2 Storage 

The program occupies approximately 3500 octal locations of any 
4K memory field. 

3. LOADING PROCEDURE 

The program may be loaded into any low order 4K field (0000 to 
7777 octal) of memory block 0 (fields 00 thru 07). Normally 
load the program into memory field 00, as follows: 

a. The tape supplied is punched in the ABS mode. 

b. Place the tape in the reader. 

c. Set the ADDRESS switches to 017700; the BANK MODE switch to 

a 1. 

d. Press RESET and then READ- IN. 

4. STARTING PROCEDURE 

4 . 1 Starting Address 

The starting address is 000200. 




4.2 


Restarting Address 


Restart from 000215 (or FF0215) to retain previous program 
conditions . 

Restart from 000200 (or FF0200) to setup the test limits and 
ACS and to reinitialize the program. 

FF = Field Number. 

4 . 3 Operator Action 

After starting from 200, the program will print "TEST LIMITS". 
The operator must ehn specify via the Teletype keyboard the 
amount of core memory to test, followed by a carriage return. 

The program assumes 4K fields numbered 00 thru 37, octal. This 
is the Field Number. Memory Block 0 contains 4K Fields 
Numbered 00 thru 01 j Memory Block 1, 10 thru 17; Memory Block 
2, 20 thru 27; Memory Block 3, 30 thru 37. 

4.3.1 Specify the Test Limits 

a. Type two field numbers, separating the field numbers with 
a comma, and then a carriage return. 

b. The first number typed signifies the first 4K field to test, 
and the secon number the last 4K field to test. 

c. The program will begin testing with the lowest order 4K 
field to test and will test all consecutive fields up 
to an including the highest specified. 

d. The 4K field containing the program may be included. It 
will be tested after program relacation takes place. 

Program relocation is described in Section 5.1.1. 
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e. If an error is made during typing press the RUBOUT key. 

"TEST LIMITS" will be printed again. Previous input is 
ignored. 

f. The highest 4K field to be tested may be typed first. The 
program will reverse the two numbers so as to make the 
first number the last field to test. 

g. Any single field or any two or more consecutive fields 
may be specified. 

For the following examples assume that the program is in field 00 
(000000 to 001111) , and the PDP-15 being used is equipped with 
12 8K of core memory. 

Example A : 

TEST LIMITS 

00 i01^ (\) denotes carriage return 

The program will test all 8 fields of memory block 0 . 

Example B : 

TEST LIMITS 

01 ,001 

The program will perform exactly as Example A. 

Example C t 

TEST LIMITS 
23,23j 

Field 23 will be tested alone. Field 23 is locations 
230000 to 237777 of memory block 2. 
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Example D: 


TEST LIMITS 
16, 21,) 

Locations 160000 through 217777 (fields 16, 17, 20 and 
21 will be tested. 

Example E'l 

TEST LIMITS 

00,00} PROGRAM IS FIELD 00 

00 , 01 } 

Example E shows the message printed by the program when a 
single field is selected which currently contains the program. 
"TEST LIMITS" is printed again, and the operator must then 
correct the test limits. 

Operation of the program is unpredicatable if the amount of 
core memory selected for testing exceeds the actual amount 
available, i.e., selecting 32K f6r testing on a PDP-15 
equipped with a maximum of 12 8K, or if the program is loaded 
into any memory block except 0 . 

4.3.2 Setup ACS - 

After the test limits are specified, the program will print 
"SETUP ACS". For normal program operation the ACS must be set 
to 000000 octal. Press any key on the Teletype keyboard after 
setting the ACS to all 0's. The program will then run until 
stopped by the operator. Normal program operation is defined 
as performing all eight checkerboard patterns on all of available 
memory from every 4K memory field. 
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5. OPERATING PROCEDURE 

5 . 1 Program and Operator Action 

a. Load the program into memory block 0 as described in 
Section 3. 

b. Specify the test limits via keyboard as described in 
Section 4.3.1. 

c. The message "SETUP ACS" will be printed. Set the ACS 
to 000000 octal, and press any keyboard key. 

d. The program will write one pattern in one 4K field, 
after which, each bit of address 0 is read and tested. 

e. Repeat step d on each location in the 4K field. 

f. Setup for the next 4K field and repeat the read and test 
sequence in steps d through f. 

When all fields have been tested in this manner, the next 
pattern is written, and steps d through f repeated. 

When all four tests have been executed, on all of memory, the 
program then relocates and performs all four tests again. 

5.1.1 Program Relocation 

Program relocation depends upon the amount of core memory 
being tested. Relocation is always within the group of 4K 
fields selected for testing, and under certain conditions 
the program may not relocate at all, but will remain in the 
current field to perform the tests (see below) . The program 
normally first relocates to the highest order 4K field under 
test. From there it relocates to the next lower 4K field, after 
performing all tests. The program keeps relocating to the 
next lower 4K field until it reaches the lowest order 4K 
field under test. The testing and relocation cycle is then 
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repeated. This procedure is repeated until stopped by the 
operator with ACS 0 . As an example, if the program is initially 
in field 00 , and 12 8K of memory is selected, the program 
would relocate from 00 , to field 37, then to field 36, 35, 34, 
33, 32, 31, 30 , 21 , 26, etc. in that order. The program 
does not relocate to any field which is not included in the 
test limits. If fields 14, 15, and 16 were selected, 
relocation would be from 00 to 16, then 15 and 14. Fields 
00 through 13 and field 17 through 37 would not contain the 
program again until included in the test limits. 

The program will not relocate if any of the conditions described 
below exist: 

a. A forced relocation has been made (Section 8.2.7). 

b. Only one 4K field is selected for testing. 

c. An error was detected in all of the available 4K fields 
under test. 

d. ACS 9 is on a 1 to inhibit program relocation (Section 
8.2.5) . 

The location of the program is indicated by the message 
"PROGRAM IS IN FIELD FF" , where FF is the field number. This 
message occurs immediately after each program relocation. The 
message printout may be deleted by placing ACS 11 on a 1 at 
any time. The printout will resume when ACS 11 is placed 
on a 0 . 

The program provides a degree of protection for itself by 
not relocating to any field which has an error. The field 
nuftiber in error is saved, and is compared to the destination 
field number before relocation takes place. If equal, the 
next lower field is set up as the destination providing it has 
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6 . 


6.1 


no error. The first field ound to be error-free is set up 
as the destination. Relocation will not take place if all 
fields have shown errors. The program will resume relocating 
to a field whenever the error condition does not exist. 

During the relocation process the program tests each data 
word transferred to the new field by performing the transfer, 
reading the word back and comparing the word with the correct 
data in the current field. This is done on a one for one 
basis until the process is completed. The entire 4K field is 
moved to enable loaders or any other data to be carried with 
the program. If an error is found during relocation, the 
address is error, and the "good" and "bad" data words are 
printed. The error printout format is described in Section 6. 
ERRORS 

Error Printouts and Description 

Immediately after the first error is detected, the header shown 
below is printed. The header is not printed again until restarting 
from 200 or 215. 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 


Where : 
TEST 

OCTAL ADR 


GOOD 


BAD 


=The current test which detected the error. 

=The octal address which contains the data 
in error. 

=What the data should have been in that 
address. This will always equal 000000 
or 777777 octal. 

=The data as read from that address. This 
will always contain one or more bits which 
are the complement of those shown under GOOD. 
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PAT CONTROL WORD =The control word used by the current test 


to generate the checkerboard pattern. This 
will be 463144 or 314633 for test 1; 

6314 60 or 146317 for test 2; 525250 or 
252527 for test 3. 


TEST 

OCTAL ADR 

GOOD 

BAD 

PAT CONTROL WORD 

1 

014000 

000000 

000001 

463144 

1 

060200 

777777 

767777 

314633 

3 

014000 

000000 

000001 

525250 

4 

037555 

777777 

377777 



In the above example, errors were detected by tests 1, 3 
and 4 in memory field 01, 06, and 03. Test 1 detected a 
"picked up" bit at location 4000, field 1, and a dropped bit 
at location 200, field 6. Test 3 detected the same error as 
test 1 at location 4000, field 1, and test 4 detected a bit 
0 error at location 7555 in field 3. 

After each error printout, the program continues testing with 
the next sequential memory location. 

Three AC switches may be used to control the error printouts . 
Placing ACS 0 on a 1 during the printout will cause a program 
halt after completion of printing. ACS 1 on a 1 will inhibit 
the printout and cause a program halt. Press CONTINUE to 
receive the error printout and to continue testing. ACS 2 on 
a 1 will inhibit printout and ring the TTY BELL for each error. 
The use of these switches is described in Section 8.2 in 
more detail. 


8 



6.1.1 Program Relocation Error- 


This message will be printed upon detection of a relocation 
error. The error information will immediately follow as in 
the example below. After all errors have been printed the 
message "NO MORE ERRORS" is printed, and the program will then 
set up to relocate to the next lower field if one is available. 
EXAMPLE : 


TEST OCTAL ADR GOOD BAD 

PROGRAM RELOCATION ERROR 


031000 
031001 
031002 
NO MORE ERRORS 


741000 740000 
611005 601005 
760207 760007 


PAT CONTROL WORD 


The above example shows three consecutive errors during program 
relocation to field 03 . Field 02 would be set up for 
relocation. Location 1000 in field 3 should have contained a 
SKP instruction, but bit 11 was dropped during the transfer. 

Bit 5 was dropped in the JMP instruction in 1001 . and bit 
10 dropped in the LiAW instruction in 1002 . 

6.1.2 Printouts Inhibited 

This message is printed whenever 64 (decimal) consecutive 
printouts have occurred. Error printouts will be inhibited 
until after all four tests have been run eight times, after 
which the error printouts will resume 64 more printouts. This 
feature is not used with program relocation errors. This 
feature is included to prevent lengthy error printouts when the 
program is being run for an extended period of time unattended. 
Error printouts may be resumed by restarting the program from 
location 200 . 
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6.1.3 


Program is in Field FF 


WHERE "FF" IS A FIELD NUMBER. This message is printed if one 
of the following conditions exist: 

a. The operator has specified a single field for testing 

and that field contains the program. Select another field, 
refer to Section 4.3. 

b. After every program relocation. 

6.1.4 Error in Selected Field 

This message is printed when a forced program relocation is 
attempted and the program has previously detected a data error 
in that field. Type a new field number, or press carriage 
return to resume automatic program relocation. See Section 
8.2.7 for instructions to force the program to another field. 

6.1.5 First/Last ADR is Within Program 

The operator has specified the first or last address, as 
indicated by the printout, which is within the program area. 
Retype a new address. See Section 8.2.8 for setting up scope 
loops via keyboard. 

7. RESTRICTIONS 

7 . 1 Starting Restrictions 

Start from FF0200 to set up the test limits and ACS arid to 
reinitialize the program. 

Start from FF0215 to retain the present program conditions. 

(FF = the field the program is in) . 

7 . 2 Operating Restrictions 

Don't use the STOP key to halt the program. Place ACS 0 on a 1. 

8. MISCELLANEOUS 
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8.1 


Execution Time 


The time required to run all four tests on one 4K field is 
approximately 15 seconds. 

The time required to run all four tests in 37 (octal) 

4K fields is approximately 4 hours, 20 minutes. 

The above times are based on a Q00 ns cycle time. 

3 . 2 Applications 

To give the operator control of the program, the ACS are 
assigned unique functions. The ACS assignments and their 
effect on the program are described below. Please note that 
it is important that the program be halted with ACS 0 rather 
than the STOP key. Using the STOP key may result in a halt 
while the program is relocating. The operation may not be 
initiated immediately since most of the ACS are sensed only 
after all tests have been performed. 

8-2.1 Halt After Test or Error Printout - ACS 0 

Placing ACS 0 on a 1 at any time while the program is running 
will cuase a halt after the current test is completed on one 
4K field. The MO will = 652. The ACS may then be changed if 
desired. Press CONTINUE to recover. If no ACS changes the 
program will resume the test which was interrupted. If 
ACS changes were made the new setting are stored and executed. 
Raising ACS ,0 during an error printout will cause a halt at 
the same location mentioned above, after the printout. 

8.2.2 Delete Error Printout and Halt on Error - ACS 1 

Raising ACS 1 at any time causes all data error printouts to 
be inhibited. A halt will occur with the MO = 654 if an error 
occurs. Press CONTINUE to receive the error printout and to 
resume testing. ACS changes may be made. 
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3.2.3 Bell on Error - ACS 2 


ACS 2 on a 1 causes the program to ring the TTY BELL whenevery 
an error occurs. 

This is convenient when attempting to isolate an intermittant 
error. ACS 1 has no effect if ACS 2 and 1 should both happen 
to be on a 1. If ACS 0 and 2 are 1, a halt occurs after the 
bell. Proceed as described in Section 8.2.1. 

8.2.4 Test Selection - ACS 3 through 6 

Any one, or any combination of tests may be executed by 
setting any combination of ACS 3 through 6 to a 1. ACS 3 
specifies tests 1; ACS 4, test 2? ACS 5, test 3; ACS 6, test 
4. The test specified by the most significant ACS will be 
performed first. 

If all four ACS are 0 , all four tests are performed in sequence. 
The ACS may be changed while the program is running. The new 
test will be recognized after the last of the current selection 
is performed. 

8.2.5 Inhibit Program Relocation - ACS 9 

The program normally relocates utomatically as indicated 
by the PC or MO indicators. To retain the program in its 
current 4K field, place ACS 9 on a 1 at any time. 

8.2.6 Inhibit "PROGRAM IS IN FIELD" - ACS 11 

The program normally prints the field number containing the 
program immediately after each relocation. The message 
may be suppressed by placing ACS 11 on a 1 at any time. To 
resume the printout place ACS 11 on a 0 . This switch does not 
inhibit the message printout when an operator error is made. 
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8.2.7 Program Relocation - ACS 12 


The operator may relocate the program to any 4K field by 
specifying a forced relocation with ACS 12 on a 1. Use 
the following procedure. 

a. Plait the program with ACS 0. 

b. Place ACS 12 on a 1 and ACS 0 on a 0 . Press CONTINUE. 

c. A printout will occur which instructs the operator to 
place ACS 13 on a 0. The program will loop until this 
is done . 

d. With ACS 12 on a 0 the message GO TO FIELD is printed 
followed by the program waiting for a field number. 

e. Type the desired field number (00 through 37) . 

f. Relocation is done immediately, and the program is 
executed in the new field. 

The program will not relocate again until restarted from 200, 
or in step d above, press carriage return to resume 
automatic relocation. 

If a data error was previously detected in the new 4K field, 
the message "ERROR IN SELECTED 4K" is printed, followed by 
step d repeated. Type another field number, or carriage 
return to resume normal operation. 

Each word transferred to the new field is tested in the same 
manner as described in Section 5.1.1, Program Relocation. 
Printouts occur for each relocation error. Step d will be 
repeated after all error reporting is done. Type another 
field number, or carriage return to resume normal operation. 
At times, the program will automatically restart at 200 and 
print TEST LIMITS. This will occur whenever a single field 
has been selected for testing, and the operator relocates 
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the program to that field. New test limits must be specified 
since the program cannot run the tests on its own 4K field. 
Proceed as described in Section 4.3. 

8.2.8 Request Scope Loop - ACS 13 

The operator ma- initiate, via keyboard, any- single or 
any group of consecutive locations up to 4K for the program 
to loop on. Any of the four data patterns may also be requested. 
No error checking is done in the loop. The loop reads a 
location, complements the data and rewrites into the same 
location. Each location within the limits specified is 
treated likewise. The limits specified are looped until 
halted with the STOP key. The program must be restarted 
from 200 to resume normal operation. 

Initiate the loop with the following procedure : 

a. Halt the program with ACS 0 . 

b. Place ACS 13 on a 1 and press CONTINUE. 

c. The message "TEST" will be printed. The program now wiats 
for a selection by the operator. 

d. Type the desired test number. Either 1, 2, 3, or 4. 

An automatic carriage return follows. 

e. The message "FIRST ADR" is printed. 

f. Type the first address of the group to be looped by the 
program. This number must be a 6 digit octal number. An 
automatic carriage return follows. 

g. The message "LAST ADR" is printed. Type a 6 digit octal 
address to indicate the last address of the group. The 
scope loop is immediately entered after the last address 
is typed. 
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The loop may also be initiated by restarting from 200 or 
125 and placing ACS 13 on a 1 under "SETUP ACS". 

If a typing error is made press the RUBOUT key. A ? will be 
printed, and the input routine will restart with "TEST". 

Example A : 

TEST 3 

FIRST ADR 010100 
LAST ADR 010100 

Address 100 in field 1 will be looped continuously after 
checkerboard pattern number 3 is written in the entire 4K field. 
Example B : 

TEST 2 

FIRST ADR 020000 
LAST ADR 021111 

The entire 4K number 2 will be looped after pattern number 
2 is written. 

Example C : 

TEST 2 

FIRST ADR 021111 
LAST ADR 020000 

The input routine will reverse the two addresses and perform 
exactly as example B. 

Example D : 

TEST 4 

FIRST ADR 000100 

FIRST ADR IS WITHIN PROGRAM 

FIRST ADR 010100 

LAST ADR 010200 

Example D shows the message printed when an address is 
selected which is in the field containing the program. 

In this case, field 0 . 
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Example E ; 


TEST 5 
7 

TEST 4 

FIRST ADR 07(3000 
LAST ADR 014000 


In example E the operator typed an invalid test number. The 
program printed the question mark, and restarted with TEST. 


The instructions in the body of the scope loop appear below . 


SCP1 


STSCP 


EEM 

LAC* MEMADR 
CMA 

DAC* MEMADR 
LAC MEMADR 
SAD LTST 
JMP STSCP 
ISZ MEMADR 
JMP SCP1 
LAC ADRA 
DAC MEMADR 
JMP SCP1 


/ENABLE EXTEND MODE 
/READ 

/COMPLEMENT DATA 

/WRITE 

/ADDRESS 

/COMPARE TO LAST 
/DONE 

/INCREMENT ADR 
/LOOP 

/FIRST ADR 
/RESTORE COUNTER 
/GO TO TOP OF LOOP 


Note that one 4K field is the maximum that may be looped by 
the program. If 4K field boundaries are overlapped, the 
checkboard pattern will be written in the field specified 


by the FIRST ADR. The scope, however, will reference the 
locations specified. 

8.2.9 Bit Suppression - ACS 14 

Excessive error printouts due to one or more bits in error 
may be suppressed by specifying the bit positions via 
keyboard input. The bit positions will still contain the 
checkboard patter, and will be tested. Error printout 
will occur for any bit position not selected. 


Use the following procedure : 

a. Halt the program with ACS 0 . 

b. Place ACD 14 on a 1, and press CONTINUE. 

c. The message "SUPPRESS" will be printed and the program 

Waits for inputs . 
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d. Place ACS 14 on a 0. 

e. Type in decimal,, the desired bit position to be suppressed 
(0 through 17) . 

f. Press the carriage return key. 

Error printouts for that position alone will not occur. 

To suppress more than one bit position : 

a. Proceed as above, but separate the selected bit positions 
with a comma in step (e) . As an example, to suppress 
bits 0, 8 and 17 type 0, 8, 17). 

Press RUBOUT and the CARRIAGE RETURN to continue with 
error printouts of all bit positions. 

Each time the bit suppressing routine is entered with 
ACS 14, the previously selected positions must be retyped 
if suppression is wanted. 

The program is not effected in any way by the typing of 
letters, or numbers greater than 17. The resulting 
positions suppressed would be unpredictable. 

PROGRAM DESCRIPTION 

The program is designed to run worst^case checkerboard 
patterns for 3K memory stacks. 

A minimum of 8K of core memory is required, and a maximum 
of 12 8K words may be tested. The program automatically 
relocates from 4K field to 4K field to test all of memory from 
each field. The patterns are shown below as they would appear 
in a portion of one bit plane. Pattern number 3 is considered 
to be the worst case pattern of most PDP-15 memory stacks. 

The patterns are complemented aldng the X axis every 40 octal 
addresses. The X axis is addressed by bits 12 through 17, 
and the Y axis by bits 6 through 11. 
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Test 1: 


Y axis 


Y axis 


0 10011001 j, 

X axis 10011001 


0 01100110 

X axis 01100110 


40 01100110 

01100110 


40 10011001 

10011001 


Test 2 : 


Y axis 


Y axis 


0 11001100 

X axis 11001100 


0 00110011 

X axis 00110011 


40 00110011 

00110011 


11001100 

11001100 


Test 3: 


Y axis 


Y axis 


0 10101010 

X axis 10101010 


0 01010101 
X axis 01010101 


40 01010101 

01010101 


10101010 

10101010 


Test 4: 


This test writes all ones into a memory field. One 
X axis line is then cleared to 0 (all 18 bit planes) , 
and then read 1024 times. All intersecting Y lines are 
then addressed and checked to make sure the contents 
did not change. All 100 (octal) X lines are tested 
in this manner. 
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The operator is given a degree of control over the 
program with the AC switches. The operator may halt 
the program (0) ; inhibit error printouts and halt 
on error (1) ; substitute the Teletype bell for error 
indication (2) ; select any one or a combination of four 
test patterns (3 through 6) , inhibit program relocation 
(9) , relocate the program to any 4K field (12) ; setup 
a scope loop via keyboard input (13) ; and inhibit error 
printouts for one or more bit positions (14) . 

10. LISTING 
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PAGE 1 


MXCH15 


/ 

/PDP-IS extendio memory CHECKERBOARD, 

/0K MINIMUM CORE REQUIRED, S,A, ■ 200, 

/ 

/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP,, 
/MAYNARD, MASS, 01794 
/ 

/J, RICHARDSON 
/O, macomber 
/ 



PAGE 2 MXCH19 MXCH19 




•TITLE 
• AB§ 

MXCH15 

00001 


• LOC 

1 

00001 

600001 

JMP 

1 

00002 

777777 

LAW 

•1 

00003 

777777 

law 

-1 

00004 

777777 

law 

■1 

00003 

777777 

LAW 

-1 


700406 

TL8*700406 



700401 

TSF*700401 



700301 

KSf*70030i 



700312 

KR91700312 



721000 

PAX«72l000 



707764 

EBA*707764 



707762 

EPA»70?762 



707761 

SBA«707761 



707741 

CXBA1707741 



739000 

CLX«739000 



/ 


• EJECT 



PACE 3 MXCHJ.5 MXCH15 


00200 



.LQC 

200 


00200 

707762 

BEGIN 

EPA 


/ENTER PDP»15 mode 

00201 

143124 


02M 

flags 

/CLEAR PROGRAM flags 

00202 

143201 


DZM 

P 1 NX 


00203 

100693 


JMS 

WHERE 

/see WHERE PROGRAM IS 

00204 

043125 


DAC 

insfld 

/save field no, 

00209 

101660 


JMS 

SLMTS 

/SETUP TEST LIMITS 

00206 

102013 


JMS 

SETAC 

/SETUP ACS 

00207 

777777 


law 

■1 


00210 

043173 

' 

DAC 

BjTSyp 

/mask For bit SUPPRESSION 

00211 

777700 


law 

•100 

00212 

043250 


DAC 

maxerr 

/COUNT FOR TOTAL ERRORS 

00213 

777770 


LAW 

■10 

00214 

043122 


DAC 

SIXT4 

/PASS COUNTER 

00219 

143123 


DBM 

norRnt 


00216 

201623 

RTN1 

LAC 

GETAq-1 


00217 

041379 


DAC 

LOCAT44 


00220 

707762 


EPA 



00221 

101571 


JMS 

locat 

/TELL WHERE PROGRAM IS 

00222 

142621 


OZM 

PHDR 


00223 

203153 


LAC 

LASTl 

/FIRST FIELD TO TEST 

00224 

543152 


SAD 

rjRSTl 

/last to test 

00229 

741000 


SKP 

00226 

600231 


JMP 

.♦3 


00227 

943129 


SAD 

INSCLD 

/INSFLD * FIELD WITH program 

00230 

600202 


JMP 

BEGIN*? 


00231 

202677 


LAC 

ERTBL 

/ERROR TABLE POINTER 

00232 

043291 


DAC 

ERWRD 


00233 

777740 


LAW 

-40 


00234 

043147 


DAC 

CT1& 


00239 

760000 


LAW 



00236 

063251 


DAC* 

ERWRD 

/LAW ■ NO ERROR IN TABLE 

00237 

443251 


191 

ERWRD 


00240 

443147 


ISi 

CT16 


00241 

600236 

J 

JMP 

,-3 


00242 

043126 

t 

DAC 

LAST 

/NO ERROR IN LAST 

00243 

100653 


JMS 

WHERE 


00244 

043125 


DAC 

INliLD 


00249 

202677 


LAC 

ERTBl 

/error table pointer 

00246 

043251 

A 

DAC 

ERWRD 




/ 

.EJECT 





page 4 MXCH15 MXCH15 

/RETURN TO STOVER AFTER ANY ACS CHANGES 
/WHILE running 


/ 


00247 

750004 

stover 

LAS 


/read test parameters 

00250 

503244 


AND 

K177 


00251 

043127 


DAC 

MCWA 


00252 

503212 


AND 

K40 


00253 

744200 


SZAICLL 


/BIT 12 a 1 * FORCE RELOCATE 

00254 

602312 


JMP 

FCDMV 

/relocate 

00255 

750004 


las 



00256 

503211 


ANO 

K20 


00257 

740200 


S2A 


/BIT 13 a 1 = KEYBOARD INPUT 

00260 

601041 


JMP 

KYBHD 

/wait For input 

00261 

750004 


las 



00262 

503210 


ANO 

K10 


00263 

740200 


S2A 


/BIT 14 A 1 * BIT SUPPRESSION 

00264 

101413 


JMS 

SUPBIT 

00265 

203127 


LAC 

MCWA 

/parameters 

00266 

503241 


ANO 

K74K 

/mask bits 3 to 6 

00267 

741200 


SNA 


/ALL 0 8 Do ALL TESTS 

00270 

600323 

i 

JMP 

DOALL 




/ 

.EJECT 





PACE 5 MXCH15 MXCH15 

/ 

/EXAMINE test SWITCHES 3 TO 6 


/ 


00271 

203127 

EXTST 

lac 

MCWA 


00272 

503237 


AND 

K40K 


00273 

740200 


SEA 


/BIT 3 A 1 « TEST 1 

00274 

600327 


JMP 

TST1 


00275 

203236 

EXAM2 

LAC 

K20K 


00276 

503127 


AND 

mcwa 


00277 

740200 


SEA 


/BIT 4 A 1 * TEST 2 

00300 

600340 


JMP 

T3T2 


00301 

203234 

EXAM3 

LAC 

K10K 


00302 

503127 


AND 

mcwa 


00303 

740200 


SEA 


/BIT 5 A 1 ■ TEST 3 

00304 

600351 


JMP 

TST3 


00305 

203231 

EXAM4 

LAC 

K4K 


00306 

503127 


AND 

MCWA 


00307 

740200 


SEA 


/BIT 6 A 1 ■ TEST 4 

00310 

600362 


JMP 

TST4 


00311 

443122 


ISE 

S 1 XT4 

/64 PASSES IF SKIP 

00312 

600316 


JMP 

.44 


00313 

143123 


DEM 

nophnt 

/clear no print flag 

00314 

777770 


law 

-10 

/restore count 

00315 

043122 


DAC 

SIXT4 


00316 

750004 


LAS 



00317 

503230 


AND 

K400 


00320 

740200 


SEA 

/BIT 9 A 1 ■ DON’T MOVE 

00321 

600216 


JMP 

RTNl 


00322 

602130 


JMP 

CMOVE 

/DONE All tests, setup 
/FOR RELOCATION 



/SETUP 

TO RUN 

All tests 


00323 

203127 

OOALL 

lac 

MCWA 


00324 

243241 


XOR 

K74K 

/SET ALL TEST BITS 

00325 

043127 


DAC 

MCWA 

/RESTORE 

00326 

600327 


JMP 

T8T1 

/TEST 1 



/TEST 1 

, WRITE 

CHECKER PATTERN 

*% 

00327 

203132 

T8T1 

LAC 

PCWA 

/TEST 1 PAT, CONTROL WORD 

00330 

043130 


DAC 

PCW 


00331 

043131 


DAC 

cntrl 


00332 

760261 


LAW 

261 

/ASCII 1 

00333 

043141 


DAC 

TNUH 

/test number 

00334 

100366 


JMS 

netwk 

/GO WRITE IN ALL FIELDS 

00335 

100377 


JMS 

CREAO 

/NOW GO READ AND TEST 

00336 

600275 


JMP 

EXAM2 

/SEE IF TEST 2 WANTED 

00337 

600334 

J 

JMP 

i -3 

/do complement 



/ 

.EJECT 





6 

MXCH15 

MXCH15 







/TIST 

i 

Si WRITE 

checker pattern 

#2 

00340 

203133 

/ 

TST2 

LAC 

pcwb 


/TEST 2 PAT, CONTROL WORD 

00341 

043130 


DAC 

PCW 



00342 

043131 


DAG 

CNT«L 



00343 

760262 


LAW 

262 


/ASCII 2 

00344 

043141 


DAC 

TNUM 


/test number 

00349 

100366 


JMS 

NETWk 


/white in all fields 

00346 

100377 


JM5 

OREAD 


/read and test each field 

00347 

600301 


JMP 

EXAM3 


/see if test 3 wanted 

00350 

600345 


JMP 

.-3 


/DO COMPLEMENT 



j 

/TEST 

3. WRITE 

CHECKER pattern 

#3, 

00351 

203134 

j 

TST3 

LAC 

PCWC 


/TEST 3 PAT, CONTROL WORD 

00352 

043130 


DAC 

PCW 



00353 

043131 


DAC 

CNT«L 



00354 

760263 


LAW 

263 


/ASCII 3 

00355 

043141 


DAC 

TNUM 


/test number 

00356 

100366 


JMi 

netwk 


/WRITE IN ALL FIELDS 

00357 

100377 


JMS 

cread 


/read and test each field 

00360 

600305 


JMP 

CXAM4 


/see if TEST 4 SELECTED 

00361 

600356 


JMP 

.-3 


/do COMPLEMENT 



j 

/test 

4, TIST 

all XT COORDINATES 

00362 

760264 

TST4 

LAW 

264 


/ASCII 4 

00363 

043141 


DAC 

TNUM 


/test number 

00364 

100525 


JMS 

BURST 


/WRITE IN ALL FIELDS 

00365 

600311 

J 

JMP 

EXAM4*4 


/prepare To RELOCATE 



✓ROUTINE TO SETUP ADDRESSES 

J 

for 

WRITE LOOP 

00366 

000000 

netwk 

0 




00367 

100610 


JMS 

SETUi 


/SETUP 1ST FIELD to test 

00370 

100617 


JMS 

cbank 


/SEE if IT HAS program 

00371 

741000 


SKP 



/NO 

00372 

620366 


JMP# 

netwk 


/EXIT 

00373 

100430 


JMS 

write 


/ACTUALLY WRITE ONE FIELD 

00374 

100643 


JMS 

nxtbnk 


/SETUP FOR NEXT FIELD 

00375 

600370 


JMP 

NETWK*2 


/SEE IF iT HAS PROGRAM 

00376 

620366 


JMP# 

NETWK 


/wrote all, exit 



/routine to setup addresses 

J 

tor 

read loop 

00377 

000000 

oread 

0 




00400 

100435 


JMS 

READ 


/ACTUALLY READ AND TEST 1 FIELD 

00401 

777774 


LAW 

.4 



00402 

243130 


XOR 

PCW 


/a?«complEment of PCW 

00403 

543131 


SAD 

CNTKL 


/ALL DONE IF EQUAL 

00404 

620377 


JMP# 

CREAD 


/EXIT 

00405 

043131 


DAC 

CNTRl 


/CNTRL 8 COMPLEMENT PATTERN 

00406 

440377 


I S3 

cread 


/RETURN*i 

00407 

620377 


JMP« 

.eject 

cread 


/EXIT AND WRITE COMPLEMENT 



PAGE 7 MXCH13 MXCH15 

/ 

/PATTERN ROUTINE PQH TESTS 1 THRU 3 


/ 


00410 

000000 

GENPAT 

0 



00411 

203131 


LAC 

cntrl 

/current pattern control word 

00412 

043140 


OAC 

PATN 

/SAVE 

00413 

777700 


LAW 

-100 


00414 

043131 


DAC 

CT0? 

/COUNTS y AXIS 

00415 

203140 


lac 

PATN 

/control word 

00416 

043133 


OAC 

PATH 

/SAVE 

00417 

777760 

WCNT 

LAW 

• 20 


00420 

043147 


DAC 

CT1* 

/COUNTS i 6 SHIFTS 

00421 

203133 


LAC 

PATH 


00422 

744010 


RCL 



00423 

043135 


DAC 

PATH 


00424 

751400 


silicla 


/no skip says write 777777 

00425 

740001 

COMPL 

CMA 


/A? ■ 7777 

00426 

043156 


DAC 

GOQOl 

/SAVE 

00427 

620410 


JMP* 

GENPAT 

/EXIT To READ OR WRITE 



/WRITE 

routine 

POR TESTS 1 

thru 3 

00430 

000000 

WRITE 

0 



00431 

100410 


JM5 

GENPAT 

/GET A WORD 

00432 

050000 


DAC 

X 

/WRITE 

00433 

100472 


JMS 

CKXY 

/CHECK FOR PATTERN INVERSION 

00434 

620430 


JMP# 

WRITE 

/DONE 4k 


.EJECT 



PAGE 


8 

MXCH15 

MXCH15 






/ 

/READ 

AND TEST 

ROUTINE FOR 

TESTS 1 THRU 3 

00435 

000000 

READ 

0 



00436 

100610 


JMS 

SETU1 

/SETUP FOR FIRST FIELD 

00437 

100617 


JMS 

cbank 

/see if it has program 

00440 

741000 


SKP 


/NO 

00441 

620435 


JMP# 

READ 

/no more core to read 

00442 

100410 


JMS 

genpat 

/get a WORD 

00443 

203205 


LAC 

K1 


00444 

043142 


DAC 

BITCON 

/USED For bit inversion 

00445 

203142 

RCOM 

LAC 

BITCON 


00446 

250000 


XOR 

X 

/COMPLEMENT a bit 

00447 

050000 


DAC 

X 

/WRITE 

00450 

203142 


LAC 

BITCON 


00451 

250000 


XOR 

X 

/RE.- COMPLEMENT 

00452 

050000 


DAC 

X 

/RE- write 

00453 

210000 


LAC 

X 

/read 

00454 

543156 


SAD 

GOQOl 

/COMPARE 

00455 

741000 


SKP 


/OK 

00456 

600467 


JMP 

ERSET 

/PRINT info 

00457 

203142 


lac 

BITCON 


00460 

744010 


RCL 


/SETUP FOR NEXT bit 

00461 

740400 


SNL 


/DONE 18 IF LINK * 1 

00462 

600444 


JMP 

RCOM-1 

/do next bit position 

00463 

100472 

CKAl 

JMS 

CKXV 

/CHECK FOR pattern INVERSION 

00464 

100643 


JMS 

nxtbnk 

/SETUP FOR next FIELD 

00465 

600437 


JMP 

R£AO*2 

/read next field 

00466 

620435 


JMP# 

READ 

/WRITE NEXT pattern 

00467 

043154 

ERSET 

DAC 

BAOX 


00470 

100673 


JMS 

ERROR 

/PRINT INFO 

00471 

600463 

i 

JMP 

CKAL 




/ 

.EJECT 





PAGE 9 


MXCH15 


MXCH15 


/ 

/ROUTINE TO CHECK FOR PATTERN 
/ 


00472 

000000 

CKXY 

0 


00473 

443146 


I S3 

CT4K 

00474 

741000 


SKP 


00475 

620472 


JMP* 

CKXY 

00476 

443151 


i s a 

CT0A 

00477 

741000 


SKP 


00500 

600507 


JMP 

Y64 

00501 

724000 


PXA 


00502 

343214 

N64 

TAD 

K10B 

00503 

721000 


PAX 


00504 

443147 


I S2 

CT16 

00505 

600421 


JMP 

WCNT*2 

00506 

600415 

J 

JMP 

WCNt-2 

00507 

737001 

Y64 

AXR*1 


00510 

777700 


LAW 

■ 100 

005U 

043151 


DAC 

CT04 

00512 

724000 


PXA 


00513 

503213 


AND 

K77 

00514 

543212 


S AO 

K40 

00515 

600521 


JMP 

.♦A 

00516 

724000 


PXA 


00517 

343312 


TAD 

(770000 

00520 

600502 


JMP 

N64 

00521 

203140 


lac 

PATN 

00522 

740001 


CMA 


00523 

043140 


DAC 

PATN 

00524 

600516 


JMP 

. 


/ 


.EJECT 


NVEPSION 


/DONE 4k IF SKIP 

/EXIT TO WRITE OR READ 
/DONE WITH y AXIS IF SKP 

/DONE 64 Y LINES 

/increment y ADDRESS BY 1 

/CHECK FOR 16 LOCATIONS 
/NOT YET 
/restore COUNT 

/INCREMENT x LINE By 1 
/RESTORE Y LINE COUNTER 

/COMPLEMENT PATTERN IF EQUAL 

/START WITH NEW X-Y COMBO 
/PATTERN control word 

/COMPLEMENTED control word 



PAGE 10 


MXCH13 


MXCH15 


/TEST 4 WRITE AND READ ROUTINE 
/ 


00525 

000000 

BURST 

0 


00526 

100610 


JMS 

SETUi 

00527 

100617 


JMS 

cbank 

00530 

741000 


SKP 


00531 

600541 


JMP 

DOXY 

00532 

777777 

WONS 

law 

-1 

00533 

073204 


OAC# 

MEMApR# X 

00534 

443204 


IS1 

MEMApR 

00535 

443146 


ISZ 

CT4K 

00536 

600532 


JMP 

W0N8 

00537 

100643 


JMS 

nxtbnk 

00540 

600527 


JMP 

BURST*2 

00541 

100610 

DOXY 

JMS 

SETUi 

00542 

100617 


JMS 

cbank 

00543 

741000 


SKP 


00544 

620525 


JMP* 

BURST 

00545 

203204 


LAC 

memadr 

00546 

343214 


TAD 

K10? 

00547 

043135 


DAC 

PATR 

00550 

203135 

brsta 

lac 

PATR 

00551 

043146 


DAC 

CT4K 

00552 

776000 


LAW 

• 2000 

00553 

043147 


OAC 

CT1P 

00554 

173204 


02M* 

MEMApRiX 

00555 

233204 


lac* 

MEMAQRiX 

00556 

443147 


ISZ 

CT1$ 

00557 

600555 


JMP 

.•8 

00560 

777777 

BUST 

law 

■1 

00561 

273146 


XOR* 

CT4K | X 

00562 

741200 


SNA 


00563 

600571 


JMP 

CEND 

00564 

740001 


CMA 


00565 

043154 


DAC 

BAD1 

00566 

200560 


lac 

bust 

00567 

043156 


DAC 

60001 

00570 

100673 


JMS 

ERROR 

00571 

203214 

CEND 

LAC 

K100 

00572 

343146 


TAD 

CT4K 

00573 

043146 


DAC 

CT4K 

00574 

503232 


AND 

K7700 

00575 

740200 


SZA 


00576 

600560 


JMP 

bust 

00577 

443204 


ISZ 

memaqr 

00600 

443135 


ISZ 

PATH 

00601 

203213 


LAC 

K77 

00602 

503204 


AND 

MEMADR 

00603 

740200 


SZA 


00604 

600550 


JMP 

brsta 

00605 

100643 


JMS 

NXTBNK 

00606 

600542 


JMP 

DOXY*! 

00607 

620525 


JMP* 

BURST 


.EJECT 


/SETUP roR FIRST field 
/SEE IF jT HAS PROGRAM 
/NO 

/read x y coordinates 
/white i * s into all fields 

/ADDRESS*! 

/done 4k when skip 

/SETUP FOR next FIELD 

/SETUP FOR first FIELD 
/SEE JF IT HAS PROGRAM 
/NO 
/EXIT 

/ADDRESS 0 OF FIELD X 
/ADD T LINE 01 TO IT 

/save 

/Y LINE ADDRESS 
/•1024 DECIMAL 

/clear line xn 

/READ 000000 512 TIMES To 
/TRY TO SWITCH OTHER LINES 


/LINE Y * X MUST » 777777 

/SHOULD NOT SKIP 

/OK 

/SAVE BAD DATA 

/save Good data 
/PRINT INFO 

/Y AXIS PLUS 1 

/MASK y address 
/ALL DONE IF SKIP 

/read next y on current x 

/INCREMENT X ADDRESS 
/INCREMENT x* y address 


/DONE 6 a x LINES IF 0 
/TEST New X WITH Y01 TO Y63, 
/SETUP FOR NEXT FIELD 


/EXIT 



PAGE 11 MXCH15 MXCH15 


/ 

/SETUP FOR FIRST 4K FIELD 


/ 


00610 

000000 

SETU1 

0 



00611 

203152 


lac 

FIRST1 

/FIRST TO TEST 

00612 

721000 


PAX 


/aOdress counter 

00613 

043143 


DAC 

SVAOR 


00614 

770000 


law 

•10000 


00619 

043146 


DAC 

CT4K 

/4K COUNTER 

00616 

620610 


JMP* 

SETUl 

/EXIT 



/ROUTINE 

: TO SEE 

IF TESTED FIELD HAS PROGRAM 

00617 

000000 

cbank 

0 



00620 

100653 


JMS 

WHERE 

/CURRENT program field 

00621 

722000 


PAL 



00622 

543143 


SAD 

SVAOR 

/next to test 

00623 

600644 


JMP 

NXTBNKAl 

/see if CURRENT is last 

00624 

740031 


CM A I I AC 



00629 

343143 


TAO 

SVAOR 


00626 

721000 


PAX 



00627 

730000 


PLA 



00630 

043204 


DAC 

MEMADR 


00631 

620617 


JMP* 

CBANk 

/EXIT 

00632 

440617 

NOMQR 

IS1 

cbank 

/RETURN *1 

00633 

620617 


JMP* 

CBANK 


00634 

203143 


lac 

SVAOR 


00639 

343234 


TAD 

K10K 

/CURRENT *4K 

00636 

043143 


DAC 

SVAOR 

/new field 

00637 

721000 


PAX 



00640 

770000 


LAW 

•10000 

/•4k 

00641 

043146 


DAC 

CT4K 

/4K counter 

00642 

600620 

J 

JMP 

cbankh 

/EXIT And test new field 



/ROUTINE TO CHECK FOR LAST 

FIELD 

00643 

000000 

nxtbnk 

0 



00644 

750004 


LAS 


/CHECK ACS0 for halt 

00649 

741100 


SPA 



00646 

100660 


JMS 

HALT 

/go HALT 

00647 

203143 


LAC 

SVAOR 


00650 

543153 


SAD 

LAST 1 

/all done if equal 

00691 

600632 


JMP 

NOMQR 


00652 

600634 


JMP 

N0M0R*2 




/ROUTINE TO DETERMINE WHERE 

program is 

00653 

000000 

WHERE 

0 


/CONTAINS EPC 

00654 

200653 


LAC 

. "1 


00655 

503240 


AND 

K70K 

/CLEAR all but BITS 3.4,5 

00656 

243201 


XOR 

P X NX 


00637 

620653 


JMP* 

WHERE 

/EXIT 



/ 

.EJECT 





PAGE 12 


MXCH15 


MXCH15 


/HALT ROUT I NE , PRESS CONTINUE TO RESUME 
/TESTING, OR IF ACS CHANGES, TO EXECUTE 
/NEW parameters, 

/ 


00660 

000000 

HALT 

0 



00661 

740040 


HLT 


/PRESS CONTINUE 

00662 

790004 


LAS 



00663 

740010 


ral 



00664 

741100 


SPA 



00669 

620660 


JMP# 

HAL! 


00666 

740020 


RAR 



00667 

903244 


AND 

K177 


00670 

943127 


SAO 

MCWA 


00671 

620660 


JMP* 

HALT 

/resume WHERE left off 

00672 

600247 


JMP 

stover 

/EXECUTE new parameters 



j 

/ERROR 

PRINT 

-OUT ROUTINE', place ACS0 UP FOR 



/halt 

after 

prjnt-out, press 

CONTINUE TO GO ON, 

00673 

000000 

ERROR 

0 



00674 

724000 


PXA 


/save bad data 

00679 

903233 


AND 

K7777 


00676 

243143 


XOR 

SVAOR 


00677 

043199 


DAC 

OCAUR 

/save failing address 

00700 

203291 


lac 

ERWRD 

/error table pointer 

00701 

942700 


SAD 

enerr 

/LAST ADDRESS of table 

00702 

741000 


SKP 



00703 

600707 


JMP 

,*4 

ERTBL 


00704 

202677 


LAC 

/FIRST ADDRESS OF TABLE 

00709 

043291 


DAC 

ERWHO 

/PUT POINTER to TOP OF TABLE 

00706 

600716 


JMP 

SW2 

/check ac2 for bell 

00707 

203159 


LAC 

OCAUR 

/FAILING address 

00710 

503245 


AND 

K370K 

/mask 3, 4 AND 5 

00711 

543126 


SAD 

LAST 

/NEW ERROR FIELD IF SKIP 

00712 

600716 


JMP 

i * 4 

LAST 

/same field as last error 

00713 

043126 


OAC 


00714 

063251 


DAC* 

ERWRD 

/store field# in table 

00719 

443251 

i 

ISZ 

ERWRD 

/INCREMENT pointer 

00716 

760000 

9 

SW2 

law 


/PRINT INHIBIT if * law 

00717 

543123 


SAO 

noprnt 


00720 

620673 


JMP* 

ERROR 

/DON’T PRINT 

00721 

750004 


LAS 



00722 

742010 


rtl 



00723 

740100 


SMA 


/bell if skip 

00724 

600730 


JMP 

swi 

/CHECK ACS 1 

00729 

760207 


LAW 

207 

/ASCII BEIL 

00726 

102032 


JMS 

pchar 

/print 

00727 

600736 


JMP 

SW0 

/CHECK ACS 0 FOR HALT 

00730 

750004 

swi 

LAS 



00731 

740010 


RAL 



00732 

740100 


SMA 


/no SKIP s PRINT INFO 

00733 

600742 


JMP 

DOERR 

/PRINT 

00734 

100660 


JMS 

HALT 

/halt 

00735 

600742 


JMP 

DOERR 

/PRINT info 



page 


13 

MXCH19 

MXCH15 





00736 

750004 

SW0 

LAS 




00737 

741100 


SPA 


/NO SKIP = 

HALT 

00740 

100660 


JMS 

HAL! 

/RETURN TO 

READ ROUTINE 

00741 

620673 

i 

JMP* 

ERROR 



/ 

.EJECT 






PAGE 14 MXCH19 MXCH15 


/SETUP TO PRINT ERROR 
/ 


00742 

203154 

DOERR 

LAC 

BAP1 

/BAD data 

00743 

741200 


SNA 



00744 

600757 


JMP 

STEH»6 

/full word error 

00745 

740001 


CMA 



00746 

741200 


SNA 



00747 

600757 


JMP 

STEH-6 

/full word error 

00750 

740001 


CMA 



00751 

503173 


AND 

BITSUP 

/MASK SUPPRESSED BITS 

00752 

740200 


SEA 



00753 

740001 


CMA 



00754 

503173 


AND 

BITSUP 


00755 

741200 


SNA 


/new error if skip 

00756 

620673 


JMP# 

ERROR 

/ERROR IS SUPPRESSED 

00757 

202621 


LAC 

PHPR 


00760 

741200 


SNA 


/PRINT HEADER IF 0 

00761 

102621 


JMS 

PHDR 


00762 

203141 


LAC 

TNUW 

/ASCII TEST NUMBER 

00763 

102032 


JMS 

pchar 

/PRINT TEST NO, 

00764 

777767 


LAW 

■11 

/-V 

00765 

043145 

STIR 

DAC 

CT32 

/USED FOR SPACING COUNT 

00766 

102104 


JMS 

sping 

/SPACE 9 

00767 

203155 


LAC 

OCAQR 

/OCTAL ADDRESS 

00770 

042075 


DAC 

crlf 

/s a ve temporarily 

00771 

102112 


JMS 

proctl 

/PRINT FAILING address 

00772 

777772 


LAW 

m6 


00773 

043145 


DAC 

CT3* 


00774 

102104 


JMS 

spjng 

/SPACE 7 

00775 

203156 


LAC 

GOQUl 

/what data should be 

00776 

042075 


DAC 

CRL^ 


00777 

102112 


JMS 

PRQCTL 

/PRINT THE GOOD 

01000 

777776 


LAW 

■ 2 


01001 

043145 


DAC 

CT32 


01002 

102104 


JMS 

spjng 

/SPACE 5 

01003 

203154 


LAC 

BAP1 

/data read 

01004 

042075 


DAC 

CRL? 

/SAVE 

01005 

102112 


JMS 

PROCTL 

/PRINT the bad 

01006 

760264 


LAW 

264 


01007 

543141 


SAD 

TNUM 


01010 

601017 

i 

JMP 

INPY-4 




t 

.EJECT 
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01011 

777773 


law 

-5 


01012 

043145 


DAC 

CT32 


01013 

102104 

INDY 

JMS 

spjng 

/SPACE 5 

01014 

203131 


LAC 

cntrl 

/current control word 

01015 

042075 


DAC 

CRLF 

/SAVE 

01016 

102112 


JMS 

PRQCTL 

/PRINT PATTERN CONTROL WORD 

01017 

102075 


JMS 

crlE 

/CR. IF 

01020 

443250 


I 52 

MAxERR 

/CHECK FOR MAX, PRINT-OUTS 

01021 

600736 


JMP 

SW0 

/CHECK ACS 0 

01022 

777700 


LAW 

-100 

/•64 DECIMAL 

01023 

043250 


DAC 

MAXERR 


01024 

760000 


law 



01025 

043123 


DAC 

NOPKnT 

/NO MORE ERROR PRINT-OUTS 

/until restart from 100 

01026 

202701 


LAC 

PTC 


01027 

043157 


DAC 

PRNT 


01030 

102037 


JMS 

PNXT 

/PRINT-OUTS INHIBITED 

01031 

102075 


JMS 

CRLP 

/CR# LP 

01032 

777766 


LAW 

•12 

/-10 DECIMAL 

01033 

043145 


DAC 

CT32 


01034 

760212 


LAW 

212 

/LP 

01035 

102032 


JMS 

pchar 


01036 

443145 


I sz 

CT32 

/!» LINE FEEDS 

01037 

601034 


JMP 

i ■? 


01040 

600736 


JMP 

SW0 



/ 

.eject 
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MXCH15 


MXCH15 


/ 

/keyboaro input routines 
/ 

01041 735000 KYBRO CLX 

/ 

/TYPE TEST# AND WAIT FOR INPUT, CARRIAGE 

/return only means use last pattern written 


/ 


01042 

202656 

TSTNO 

LAC 

TSNX 

/pointer for test# 

01043 

043157 


DAC 

PRNT 


01044 

102075 


JMS 

CRLL 

/CH, LF 

01045 

102037 


JMS 

PNXT 

/PRINT TEST# 

01046 

101547 


JMS 

KEY IN 

/wait for input 

01047 

543227 


SAD 

K377 

/START over if a rub-out 

01050 

601041 


JMP 

KYB«D 


01051 

543217 


SAD 

K21* 

/CHECK FOR C,R. 

01052 

101074 


JMS 

ADR! 

/USE LAST PATTERN WRITTEN 

01053 

777517 


LAW 

-261 

/-l ASCII 

01054 

343145 


TAD 

CT32 


01055 

740100 


SMA 


/minus s input <i 

01056 

601061 


JMP 

,*3 

WOT I S 


01057 

102612 


JMS 

/PRINT QUERY ANQ RESTART 

01060 

601042 


JMP 

TSTNO 


01061 

203145 


LAC 

CT32 

/TEST# IN ASCII 

01062 

740001 


CM A 



01063 

343205 


TAD 

Kl 


01064 

343222 


TAD 

K264 

/SUBTRACT ASCII 4 

01065 

740100 


SMA 


/minus = test# >4 

01066 

601071 


JMP 

,*3 


01067 

102612 


JMS 

WOT I S 

/PRINT query and restart 

01070 

601042 


JMP 

TSTNO 

01071 

760000 

TSTN 

LAW 



01072 

243145 


XQR 

CT32 


01073 

043141 


DAC 

TNUM 

/new TEST NUMBER 


/ 


• EJECT 
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MXCH15 






/XCHl? 

- tape 2 





/wait 

FOR FIRST 

6 0 X G I T 

ADDRESS TO LOOP ON 

01074 

202703 

ADR! 

LAC 

ROTB 

/pointer for law-xx 

01075 

042702 


OAC 

rota 


01076 

222702 


lac« 

ROTA 


01077 

043165 


OAC 

nrqta 

/left Shift counter 

01100 

760000 


LAW 



01101 

043163 


OAC 

ADRA 


01102 

143160 


DZM 

ADRCW 

/SAVES PARTIAL ADDRESS 

01103 

102073 


JMS 

CRLF 

/ CR, LF 

01104 

202657 


LAC 

AORX 

/pointer for first adr, 

01105 

043157 


DAC 

prnt 


01106 

102037 


JMS 

PNXT 

/PRINT FIRST ADR, 

01107 

202660 


LAC 

AOlR 

/CUDlR) * ADRl 

01110 

043162 


DAC 

OVIR 


01111 

202661 


LAC 

DON! 

/91D0NI) » DFST 

01112 

043161 


OAC 

EXIT 


01113 

101347 

FADR 

JMS 

KEVIN 

/wait for input 

01114 

101956 


JMS 

legal 

/SEE JF VALID 

01115 

203143 


lac 

CT3* 

/ASCII INPUT 

01116 

303207 


ANO 

K7 


01117 

043143 


DAC 

CT3* 


01120 

101624 


JMS 

getad 

/SHIFT left to FROM address 

01121 

601113 


JMP 

FADR 

/GET NEXT DIGIT 

01122 

203160 


LAC 

AORCW 


01123 

043163 


OAC 

ADRA 


01124 

202703 

DFST 

LAC 

ROTB 

/pointer for law table 

01123 

542702 


SAO 

ROTA 

/NOT EQUAL ■ <6 characters 

01126 

601131 


JMP 

.♦3 

/O.K, 

01127 

042702 


OAC 

ROTA 


01130 

601567 


JMP 

QUERY 

/PRINT QUERY and RESTART 

01131 

101376 


JMS 

PROG 

/now see IF 1ST ADR, IS 






/IN SAME 4k AS PROGRAM 

01132 

601150 


JMP 

A0R2 

/OK 

01133 

102075 


JMS 

crlf 

/CR. LF 

01134 

202667 


LAC 

AOR1P 


01135 

043157 


DAC 

PRNT 


01136 

102037 


JMS 

PNXT 

/PRINT "FIRST" 

01137 

202671 


LAC 

OVRLP 


01140 

043157 


DAC 

PRNT 


01141 

102037 


JMS 

PNX? 

/PRINT »aDR, IS WITHIN PROGRAM 

01142 

760000 


law 



01143 

041575 


DAC 

LOCAT*4 


01144 

101571 


JMS 

LOCAT 

/tell where program is 

01145 

201623 


LAC 

GETAO-l 


01146 

041373 


DAC 

LQCAT*4 


01147 

601074 

/ 

JMP 

ADR1 

/START over 


i EJECT 



MXCH15 


PAGE 10 MXCH15 

/ 

/WAIT FOR LAST 6 DIGIT ADDRESS OF BLOCK 


/ 


01150 

760000 

ADR2 

law 



01151 

043164 


DAC 

adrb 


01152 

143160 


DiM 

ADRCW 


01153 

222702 


lac* 

rota 


01154 

043165 


DAC 

NROIA 

/FIRST COUNT FOR LEFT SHIFT 

01155 

102075 


JMS 

CRLC 

/OR, LF 

01156 

202662 


LAC 

AOXH 

/pointer for last adr, 

01157 

043157 


DAC 

PRNT 


01160 

102037 


JMS 

PNX? 

/PRINT LAST ADR, 

01161 

202663 


LAC 

AD2R 

/CUD2R) * ADR2 

01162 

043162 


DAC 

OVER 


01163 

202664 


LAC 

DON* 

/C<DQN2) a DLST 

01164 

043161 


DAC 

EXIT 


01165 

101547 

LADR 

JMS 

KEY I N 

/wait for input 

01166 

101556 


JMS 

LEGAL 

/SEE if VALID 

01167 

203145 


LAC 

CT32 

/ASCII INPUT 

01170 

503207 


AND 

K7 


01171 

043145 


DAC 

CT32 


01172 

101624 


JMS 

getad 

/SHIFT LEFT TO FORM ADDRESS 

01173 

601165 


JMP 

lad« 

/GET NEXT DIGIT 

01174 

203160 


LAC 

ADRCW 


01175 

0 4$ 1 6 4 


DAC 

ADRB 


01176 

202703 

DLST 

LAC 

ROTH 


01177 

542702 


SAD 

ROTA 

/NOT EQUAL a <6 CHARACTERS 

01200 

601203 


JMP 

i *3 

/OiK, 

01201 

042702 


DAC 

ROTA 


01202 

601567 


JMP 

QUERY 

/PRINT QUERY AND RESTART 

01203 

101376 


JMS 

PROG 

/see if last address is in 






/SAME 4k AS PROGRAM 

01204 

601222 


JMP 

$TL P 

/ 0 * K , 

01205 

102075 


JMS 

crle 

/CR» LF 

01206 

202670 


LAC 

ADR2P 


01207 

043157 


DAC 

prnT 


01210 

102037 


JMS 

PNXf 

/PRINT "LAST" 

01211 

202671 


LAC 

OVRLP 


01212 

043157 


DAC 

PRNT 


01213 

102037 


JMS 

PNXT 

/PRINT »AOR, IS WITHIN PROGRA 

01214 

760000 


law 



01215 

041575 


DAC 

LOCATE 


01216 

101571 


JMS 

LQCAT 

/tell where program is 

01217 

201623 


lac 

getad-i 


01220 

041575 


DAC 

L0CAT44 


01221 

601150 


JMP 

ADR* 

/START OVER 


/ 


.eject 
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/ 

/SETUP ADDRESSES AND PATTERNS BEFORE LOOPING, 


/ 


01222 

760000 

STLP 

LAW 



01223 

543163 


SAD 

aora 

/A LAW a NO 1ST ADDRESS 

01224 

741000 


SKP 



01225 

601234 


JMP 

CKLST 


01226 

543164 


SAD 

AQRO 

/A LAW a NO LAST ADDRESS 

01227 

600216 


JMP 

RTN1 

/restart program 

01230 

203164 


LAC 

AORB 


01231 

043163 


DAC 

AORA 

/only one selected 

01232 

043166 


DAC 

ltst 

/last of block 

01233 

601276 


JMP 

S J MU 


01234 

543164 

CKLST 

SAD 

aqrb 

/A LAW * NO LAST ADDRESS 

01235 

741000 


SKP 



01236 

601243 


JMP 

cboth 


01237 

203163 


lac 

aora 

/only 1 address wanted 

01240 

043164 


DAC 

ADR0 


01241 

043166 


DAC 

ltst 

/last of block 

01242 

601276 


JMP 

S J MU 


01243 

203163 

C8QTH 

LAC 

AORA 

/FIRST ADR, 

01244 

503240 


ANO 

K70K 

/mask bits 3,4 and 5 

01245 

043145 


DAC 

CT32 

/SAVE 

01246 

203164 


LAC 

AORS 

/LAST AqR 1 

01247 

503240 


AND 

K70K 

/MASK 3,4 AND 5 

01250 

543145 


SAD 

CT32 

/both must « same 4k 

01251 

601254 


JMP 

.♦3 

/OK 

01252 

102612 


JMS 

WOT 1 S 

/print query 

01253 

601074 

i 

JMP 

ADR1 

/start over 

01254 

203163 

/ 

LAC 

AORA 

/first address 

01255 

740001 


CM A 



01256 

343205 


TAD 

K1 

/2’s COMPLEMENT 

01257 

343164 


TAD 

ADRB 

/subtract last ADDRESS 

01260 

740100 


SMA 


/first is > LAST if neg, 

01261 

601272 


JMP 

SIMU-4 

/leave as is 

01262 

203164 


LAC 

ADRB 


01263 

042075 


DAC 

CRLF 


01264 

203163 


LAC 

ADR* 


01265 

043164 


DAC 

ADRB 

/FIRST IS NOW LAST 

01266 

043166 


DAC 

LTST 


01267 

202075 


LAC 

CRLF 


01270 

043163 


DAC 

ADRA 

/last is now first 

01271 

601276 


JMP 

,♦9 

ADRB 


01272 

203164 


lac 


01273 

043166 


DAC 

ltst 


01274 

203163 


LAC 

ADRA 


01275 

721000 


PAX 




/ 


EJECT 
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01276 

760261 

/ 

S ! MU 

law 

261 


01277 

543141 


SAD 

TNJM 

/TEST 1 IF EQUAL 

01300 

601312 


JMP 

S I Ml 


01301 

760262 


LAW 

262 


01302 

543141 


SAD 

TNJM 

/TEST 2 IF EQUAL 

01303 

601330 


JMP 

S I M2 


01304 

760263 


LAW 

263 


01305 

543141 


SAD 

TNUM 

/TEST 3 IF EQUAL 

01306 

601332 


JMP 

S I M*5 


01307 

760264 


law 

264 


01310 

543141 


S AO 

TNJM 

/TEST 4 IF EQUAL 

01311 

601355 


JMP 

SJM4 


01312 

203132 

y 

S ! Ml 

LAC 

PCW A 


01313 

043131 


DAC 

CNTRl 


01314 

102075 


JMS 

CRL? 


01315 

203163 


LAC 

AOPA 


01316 

503240 


AND 

K70K 


01317 

043203 


DAC 

WORK 


01320 

730000 


PLA 



01321 

740031 


CMA } I AC 



01322 

343203 


TAD 

WORK 


01323 

721000 


PAX 



01324 

770000 


LAW 

-10000 


01325 

043146 


DAC 

CT4K 


01326 

100430 


JMS 

write 

/W«ITE PATTERN #1 

01327 

601346 


JMP 

STSCP 


01330 

203133 

S I M2 

LAC 

PCWB 

/write pattern #2 

01331 

601313 


JMP 

S I Ml*l 


01332 

203134 

S I M3 

LAC 

PCWC 

/PATTERN 43 

01333 

601313 


JMP 

SJMU1 


01334 

707702 

y 

SCP1 

EEM 


/SYNC 

01335 

210000 


LAC 

X 

/read 

01336 

740001 


CMA 


/COMPLEMENT 

01337 

050000 


DAC 

X 

/WRITE 

01340 

203203 


LAC 

WORK 


01341 

543166 


SAD 

LTST 

/CHECK FOR END OF BLOCK 

01342 

601346 


JMP 

. *4 


01343 

737001 


AXP+1 


/ADDRESS*! 

01344 

443203 


I sz 

WORK 


01345 

601334 


JMP 

SCP1 


01346 

203163 

STSCP 

LAC 

ADRA 

/STARTING ADDRESS 

01347 

043203 


DAC 

WORK 


01350 

730000 


PLA 



01351 

740031 


CMAJIAC 



01352 

343203 


TAD 

WORK 


01353 

721000 


PAX 



01354 

601334 


JMP 

SCP1 



/ 

.EJECT 
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/ 

/ROUTINE TO SIMULATE TEST A. ALL ONES 
/ARE WRITTEN INTO ONE 4K HELD, ANU 
/THEN THE ADORISS IS LOOPED. THE 
/X LINE SPECIFIED IN THE FIRST ADD* 
/IS SET TO 000000 i AND THEN READ, 

/THE LAST AODRi ANO ALL BETWEEN, A*E 




/NOT REFERENCED 

. 


01355 

102075 

y 

SIM4 JM8 

CRL? 


01356 

203163 

lac 

ADRA 


01357 

5032A0 

AND 

K70K 

/MASK F IELD NUMBER 

01360 

043203 

DAC 

WORK 


01361 

730000 

PLA 



01362 

740031 

CMA 1 1 AC 



01363 

3A3203 

TAD 

WORK 


0136A 

721000 

PAX 



01365 

770000 

LAW 

•10000 


01366 

043146 

DAC 

CT4K 

/4K COUNTER 

01367 

777777 

law 

•1 


01370 

050000 

DAC 

X 

/write itS 

01371 

443146 

ISi 

CT4K 

/DONE 4k WHEN SKIP 

01372 

601367 

JMP 

,«3 


01373 

163163 

DIM# 

ADRA 

/clear x*t line 

0137A 

223163 

lac# 

ADRA 

/hang here and read 

01375 

601374 

JMP 

• •1 



/ 

/CHECK WANTED AOORfSS AND PROGRAM Area 


01376 

000000 

/ 

PROG 

0 




01377 

100653 


JMS 

WHERE 



01400 

042075 


DAC 

CRLF 

/SAVE 


01401 

760000 


law 




01402 

543160 


SAD 

ADRCW 

/NONE IF « 

LAW 

01403 

621376 


JMP# 

PROG 



01404 

203160 


LAC 

ADRCW 



01405 

503240 


AND 

K70K 



01406 

542075 


SAD 

CRLE 

/ClCRLF) * 

CURRENT 4K BANK 

01407 

741000 


SKP 


/EQUAL 


01410 

621376 


JMP# 

PROG 

/exit 


014H 

441376 


ISI 

PROS 

/returns 


01412 

621376 

/ 

JMP# 

PROG 

/E*IT 



• EJECT 



PACE 22 MXCHlf MXCH15 

/ 

/bit suppression input routine, type a 
/CARRIAGE RETURN to resume testing all, bits 
/TO SUPPRESS, Type ThE OeCJMAL BIT POS I T I On < S ) 
/sipaRatinc each with a comma, terminate with 

/A C,R, PRESS RUBOU! TO RESTART THE LINE IN 
/CASE OP TYPING ERROR, 


/ 


01413 

000000 

8UPBIT 

0 



01414 

143172 


OEM 

sew 

/SUPPRESSION CONTROL WORD 

01413 

202665 


LAC 

SUPX 

/pointer for suppresss 

01416 

043157 


OAC 

PRNT 


01417 

202666 


LAC 

SUP*A 

/CISUPXA) B SUPBIT+1 

01420 

043162 


OAC 

OVER 


01421 

102075 


JMS 

CRLE 

/CR, LP 

01422 

102037 


JMS 

PNXT 

/PRINT "SUPPRESS" 

01423 

101547 

again 

JMS 

KEVIN 

/wait foinput 

01424 

343217 


SAC 

K21? 

/check for c,r, 

/done selecting 

01423 

601472 


JMP 

EOT 

01426 

343227 


SAD 

K377 

/CHECK FOR RuB«OUT 

01427 

601414 


JMP 

SUP8IT41 

01430 

543220 


SAD 

K254 

/CHECK FOR COMMA 

01431 

601423 


JMP 

AGAIN 

/wait for next bit pos, 

01432 

101522 


JMS 

NUMB 

/DETERMINE INPUT NUMBER 

01433 

601567 

A 

JMP 

QUERY 

/NOT VALID RESTART 

01434 

741200 

i 

SNA 


/CHECK FOR 0 

01433 

601516 


JMP 

ZERO 

/POSITION 0 

01436 

043167 


OAC 

TTYW 

/save Digit 

01437 

101547 


JMS 

KEYIN 

/wait for second digit 

01440 

543220 


SAD 

K254 

/CHECK FOR COMMA 

01441 

601500 


JMP 

EOM 

/2 digit position 

01442 

543217 


SAD 

K215 

/CHECK FOR C.R, 

01443 

601504 


JMP 

COTA 

/done 

01444 

543227 


SAD 

K377 

/RUB-OUT IF NO SKIP 

01443 

601414 


JMP 

SUPBJT*! 

/Start over 

01446 

101522 


JMS 

NUMB 

/DETERMINE number 

01447 

601567 


JMP 

query 

/NOT VALID, RESTART 


/ 

•EJECT 
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/ 


01450 

043170 


DAC 

TTYX 

/ save number 

01451 

203167 


LAC 

TTYW 

/PREVIOUS DIGIT 

01452 

744010 


RCLI 

RGu RCL 


01453 

744010 





01454 

744010 





01455 

243170 


XOR 

TTYX 

/COMBINE DIGITS 

01456 

740001 


CMA 


/l' COMPLEMENT 

01457 

043171 


PAC 

TTY Y 

/ SAVE 

01460 

777777 


law 

-1 


01461 

343171 


TAD 

TTYT 

/SUBTRACT .1 

01462 

043171 

ROTOR 

DAC 

TTYY 


01463 

203243 


LAC 

K400K 

Z400000 

01464 

744020 


RGR 


01465 

443171 


IS2 

TTYY 

/SHIFT COUNT 

01466 

601464 


JMP 

• ■3 


01467 

243172 


XOR 

sew 

/INSERT IN CONTROL WORD 

01470 

043172 


DAC 

sew 


01471 

601423 


JMP 

AGAIN 

/wait for next bit position 

01472 

203172 

COT 

LAC 

sew 

/SELECTION COMPLETED 

01473 

740001 


CMA 



01474 

043173 


DAC 

BITSUP 


01475 

143172 


DIM 

sew 


01476 

102079 


JMS 

CRL[ 

/C«iLE 

01477 

621413 


JMP# 

SUPBIT 

/EXIT 

01900 

203167 

y 

COM 

LAC 

TTYW 

/single digit 

01901 

740001 


CMA 



01902 

343205 


TAO 

K1 


01903 

601462 


JMP 

rotor 


01904 

203167 

IOTA 

LAC 

TTYW 

/INPUT DIGIT 

01909 

740001 


CMA 



01906 

343205 


TAO 

K1 

/ 2 * S COMPLEMENT 

01907 

043171 


DAC 

TTYY 


01910 

203243 


LAC 

K400K 

Z400000 

01911 

744020 


RCR 



01912 

443171 


1 81 

JTYY 

/SHIFT COUNTER 

01913 

601511 


JMP 

i-2 


01914 

243172 


XOR 

sew 


01915 

601473 


JMP 

EOT*l 

/EXIT 

01516 

203172 

y 

ZERO 

LAC 

sew 


01517 

243243 


XOR 

K400K 

Z400000 

01520 

043172 


DAC 

sew 


01521 

601423 

i 

JMP 

AGAIN 

/wait for next 



/ 

.EJECT 




PAGE 


24 

MXCH15 

MXCH15 




01522 

000000 

/ 

NUMB 

0 



01523 

203145 


LAC 

CT32 

/ASCII INPUT 

01524 

503226 


AND 

K370 


01525 

543221 


SAD 

K260 


01526 

741000 


SKP 


01527 

601534 


JMP 

.*P 

NUMB 

/CHECK FOR A 270 OR 271 

01530 

441522 


181 

/return+i 

01531 

203145 


LAC 

CT32 


01532 

503207 


ANO 

K7 


01533 

621522 


JMP# 

numb 

/EMT 

01534 

543223 


SAD 

K270 

/« 8 OR 9 IF EQUAL 

01535 

741000 


SKP 



01536 

621522 


JMP# 

numb 

/INVALID 

01537 

203145 


LAC 

CT3* 

/ASCII INPUT 

01540 

503205 


ANO 

Ki 

/■ A 8 IF BIT 17 * 0 

01541 

740200 


S1A 



01542 

601545 


JMP 

i*3 

/A 9 

01543 

777770 


law 

-10 

/SHIFT COUNT of 8 

01544 

601463 


JMP 

ROTOR 


01545 

777767 


LAW 

-11 

/SHIFT COUNT OF 9 

01546 

601462 

/ 

JMP 

rotor 




/ 

/CHARACTER inrut routine 

J 


01547 

000000 

keyin 

0 



01550 

700312 


KRB 


/INITIALIZE 

01551 

700301 


KSF 


/WAIT FOR INPUT 

01552 

601551 


JMP 

1-1 


01553 

700312 


KRB 


/read buffer 

01554 

043145 


OAC 

CT32 

/ SAVE 

01555 

621547 

/ 

JMP# 

KEYIN 




/ 

/check 

VALIDITY 

of input 

CHARACTER 

01556 

000000 

j 

LtS*L 

0 



01557 

203145 

LAC 

CT32 

/ASCII INPUT 

01560 

543227 


SAD 

K37 1 

/is IT A RUBOUT 

01561 

601041 


JMP 

KYBRD 

/START OVER 

01562 

543217 


SAD 

K21> 

/CHECK FOR C.R. 

01563 

623161 


JMP# 

EXIT 

/LINE TERMINATED 

01564 

503226 


AMO 

K370 


01565 

543221 


SAD 

K26 » 

/SHOULD EQUAL 260 

01566 

621556 


JMP# 

LEGAL 

/ 0 i K * 

01567 

102612 

QUERY 

JMS 

WQTJS 

/PRINT question mark 

01570 

623162 


JMP* 

OVER 

/START line over 


/ 


« EJECT 



PACE 25 MXCH15 MXCH15 

/PRINT area containing PROGRAM 


/ 


01571 

000000 

LOCAT 

0 




01572 

750004 


LAI 




01573 

503214 


AND 

K100 



01574 

740200 


S1A 




01575 

621571 


JMP* 

LOCAT 



01576 

102075 


JMS 

crl? 


/CR, LF 

01577 

202672 


LAC 

PISIN 



01600 

043157 


DAC 

PRNT 



01601 

102037 


JMS 

PNXT 


/PRINT ’'PROGRAM IS IN FIELD” 

01602 

100653 


JMS 

WHERE 


/where is IT 

01603 

043203 


DAC 

WORK 



01604 

744010 


RCLJ 

rtli 

RAL 


01609 

742010 






01606 

740010 






01607 

503207 


AND 

K7 



01610 

343221 


TAD 

K260 



01611 

102032 


JMS 

PCHAR 


/PRINT 1ST HALF FIELD NO, 

01612 

203203 


lac 

WORK 



01613 

744010 


RCLI 

RTLI 

RTLI 

RTL 

01614 

742010 






01615 

742010 






01616 

742010 






01617 

503207 


AND 

K7 



01620 

343221 


TAD 

K260 



01621 

102032 


JMS 

pcwAr 


/PRINT 2ND HALF FIELD NO. 

01622 

102079 


JMS 

CRLF 


/ C«. LF 

01623 

621571 

/ 

JMP* 

LOCAT 


/EMT 



/ 

/GENERATE 6 I 

M 

DIGIT ADDRESSES 

FROM KEYBOARD INPUT 

01624 

000000 

GETAO 

0 




01625 

707704 


LEM 




01626 

222702 


LAC* 

ROTA 


/GET A NEC, LAW FOR COUNT 

01627 

043165 


DAC 

nrota 


/SHIFT counter 

01630 

203145 


LAC 

CT32 


/ASCII INPUT 

01631 

443165 

QNROT 

IIS 

NROTA 



01632 

601650 


JMP 

goleft 


/ROTATE 1 left 

01633 

243160 


XOR 

ADRCW 


/ADR, CONTROL WORD 

01634 

043160 


DAC 

adrOw 



01635 

777777 


LAW 

•1 



01636 

562702 


SAD* 

ROTA 


/REC'D 6 DIGITS IF EQUAL 

01637 

601642 


JMP 

,43 



01640 

442702 


192 

ROTA 


/l a w pointer * 1 

01641 

621624 


JMP* 

GETAO 


/exit and wait for next 

01642 

202703 


LAC 

ROTB 


/ESTORE POINTERS 

01643 

042702 


DAC 

ROTA 



01644 

222702 


lac* 

ROTA 


- 

01645 

043169 


DAC 

nrota 



01646 

441624 


192 

getad 


/RETURN+1 

01647 

621624 


JMP* 

getad 


/EXIT 

01650 

744010 

GOLEFT 

RCL 




01651 

601631 


JMP 

CNROT 





MXCHlS 


MXCH15 


PACE! 26 


/ 


01652 

777760 

RQTC 

law 

• 20 

/ROTATE 15 LEFT for 1ST DIGIT 

01653 

777763 


law 

•13 

/12 LEFT FOR 2ND 

01654 

777766 


law 

-12 

/9 LEFT FOR 3RD 

01655 

777771 


law 

• 7 

/6 LEFT pOR 4 TH 

01656 

777774 


law 

• 4 

/3 LEFT pOR 5 TH 

01657 

777777 


LAW 

■1 

/NONE For 6TH 


/ 


.EJECT 



MXCH15 


MXCH15 


PACE 27 


/ 

/ROUTINE TO ACCEPT TeST LIMITS FROM KEYBOARD INPUT 
/ 


01660 

000000 

SLMTS 0 



01661 

201623 

LAC 

cetad-i 


01662 

041573 

OAC 

LOCAT*4 

/restore ump* 

01663 

102073 

JMS 

CRL^ 

/CR» LF 

01664 

202673 

LAC 

tlmx 

/TEST limits pointer 

01663 

043157 

DAC 

PRNT 


01666 

102037 

JMS 

PNXt 

/PRINT "TEST LIMITS" 

01667 

102073 

JMS 

CRL[ 

/CRiLF 

01670 

202674 

LAC 

SLMX 

/C (SLMX)*SLMTS*i 

01671 

043162 

OAC 

OVER 


01672 

202673 

lac 

DON'S 

/RETURN aDDRESSsCREVR 

01673 

043161 

OAC 

EXIT 


01674 

101547 

JMS 

KEVIN 

/WAIT for input of mem, no, 

01673 

543227 

SAD 

K377 


01676 

601661 

JMP 

SLMTS*1 


01677 

101536 

JMS 

LEG*L 

/SE IF VALID 

01700 

203143 

LAC 

CT32 

/ASCII INPUT 

01701 

503207 

AND 

K7 

/MASK 15,16 AND 17 

01702 

744020 

RCR 1 

RTRJ RAR 


01703 

742020 




01704 

740020 




01703 

043152 

OAC 

r irsti 


01706 

101547 

JMS 

KEVIN 

/wait for input of field no, 

01707 

543227 

SAD 

K377 


01710 

601661 

JMP 

SLMTS41 


01711 

101556 

JMS 

legal 

/SEE IF VALID 

01712 

203145 

LAC 

CT32 

/ASCII INPUT 

01713 

303207 

ANO 

K7 

/MASK 15.16 AND 17 

01714 

744020 

RCR 1 

RTRJ RTRl 

RT« 

01713 

742020 




01716 

742020 




01717 

742020 




01720 

243152 

XOR 

FIRST! 


01721 

043152 

DAC 

FIRST! 

/FIRST FIELD TO TEST IS STORED 

01722 

101347 

JMS 

KEVIN 

/wait for comma 

01723 

543220 

SAD 

K254 


01724 

741000 

SKP 



01723 

601367 

JMP 

QUERY 

/PRINT QUERY, AND RESTART 

01726 

101547 

JMS 

KEVIN 

/wait for input of mem, no, 

01727 

543227 

SAD 

K377 


01730 

601661 

JMP 

sLMfsn 


01731 

101536 

JMS 

legal 

/SEE IF VALID 

01732 

203145 

LAC 

CT32 

/ascii input 

01733 

503207 

AND 

K7 


01734 

744020 

RCR 1 

RTRJ RAR 


01733 

742020 




01736 

740020 




01737 

043153 

OAC 

LASTl 


01740 

101547 

JMS 

KEVIN 

/WAIT for input of fiel no, 

01741 

543227 

SAD 

K377 


01742 

601661 

JMP 

SLMTS*1 


01743 

101556 

JMS 

legal 

/see if valid 



PAGE 28 MXCHlS MXCH15 


01744 

203145 

LAC 

CT32 

/ASCII ImPUT 

01745 

503207 

AND 

K7 

/MASK 15,16 AND 17 

01746 

744020 

RCR| 

RTP 1 RTRJ 

rt r 

01747 

742020 




01750 

742020 




01751 

742020 




01752 

243153 

XOR 

LA5T1 


01753 

043153 

OAC 

LAITl 

/l a st field to test is stored 

01754 

777777 

law 

■1 


01753 

043146 

OAC 

CT4K 


01756 

443146 

CRlVR 152 

CT4K 

/NO 2ND DIGIT IF NO SKIP 

01737 

601567 

JMP 

QUI«Y 

/PRINT QUERY AND RESTART 

01760 

203152 

LAC 

FIRST1 

/FIRST FIELD 

01761 

740001 

CMA 



01762 

343205 

TAD 

K1 

/2’S complement 

01763 

343153 

TAD 

LASTl 

/FIRST IS HAST IF NEG, 

01764 

740100 

SMA 



01763 

601774 

JMP 

OKAS 

/FIRST IS LOWEST ORDER 


.EJECT 



29 

MXCH15 

MXCH15 




01766 

203152 

/ 

LAC 

firsti 


01767 

043151 


DAC 

CT04 

/SAVE 

01770 

203153 


LAC 

LASTl 


01771 

043152 


DAC 

FIRST! 

/LAST is now first 

01772 

203151 


LAC 

CT0« 


01773 

043153 


DAC 

LASJl 

/FIRST IS NOW LAST 

01774 

203153 

OKAS 

LAC 

LASTl 


0 1775 

543152 


SAD 

FIRST! 

/SEE IF oNLV 1 SELECTED 

01776 

741000 


SKP 


/YES, See IF IT HAS PROGRA! 

01777 

602007 


JMP 

alqk 


02000 

543125 


SAD 

INSFlD 

/REJECT IF EQUAL. 

02001 

741000 


SKP 


/tell where it is 

02002 

602007 


JMP 

ALOK 


02003 

760000 


law 


02004 

041575 


DAC 

L0CAT*4 

/CHANGE jMP* TO NOP 

02005 

101571 


JMS 

locat 


02006 

601661 


JMP 

SLMTSM 

/restart 

02007 

101547 

ALOK 

JMS 

KEVIN 

/wait for a c,r 

02010 

543217 


SAD 

K21* 


02011 

621660 


JMP* 

SLMTS 

/EXIT 

02012 

601567 


JMP 

query 

/PRINT QUERY and restart 



/SETUP 

ACS, 

PRESS CARRIAGE 

RETURN TO exit 

02013 

000000 

9ITAC 

0 



02014 

102075 


JMS 

crl£ 

/CRiLF 

02015 

202676 


LAC 

SETX 

/POINTER 

02016 

043157 


DAC 

PRNT 


02017 

102037 


JMS 

PNXT 

/PRINT ’'SETUP ACS" 

02020 

700312 


KRB 



02021 

700301 


KSF 



02022 

602021 


JMP 

i *1 


02023 

700312 


KR0 



02024 

543227 


SAD 

K377 

/CHECK FOR RO 

02025 

601661 


JMP 

SLMTS*! 

/restart 

02026' 

750004 


LAS 



02027 

043127 


DAC 

MCWA 


02030 

102075 


JMS 

crl? 

/C«»LF 

02031 

622013 


JMP* 

SETAC 

/EXIT 


/ 


EJECT 



PACE 30 MXCHl? MXCH15 

/ 

/print routines for messages 
/ 

/print one character and exit 


/ 


02032 

000000 

PCHAR 

0 



02033 

700406 


TLS 



02034 

700401 


TSF 



02035 

602034 


JMP 

.■1 


02036 

622032 


JMP* 

PCHAR 




/PRINT 

A STRING 

AND EXIT'. 


02037 

000000 

PNXT 

0 



02040 

777775 


law 

• 3 


02041 

043145 


DAC 

CT32 

/CHARACTER COUNTER 

02042 

443157 


I S2 

PRN T 

/word pointer*i 

02043 

223157 


LAC* 

PRNT 


02044 

741200 


SNA 


/all done if 0 

02049 

622037 


JMP* 

PNXT 

/EXIT 

02046 

042075 

MASK 

DAC 

CRL f 

/SAVE WORD 

02047 

503213 


AND 

K77 

/MASK 6 bit character 

02050 

543213 


SAO 

K77 

/CHECK IF RUBOUT 

02051 

602062 


JMP 

CK3 


02052 

043142 


DAC 

BITCON 

/save char 

02053 

777740 


LAW 

■ 40 


02054 

343142 


TAD 

BITCON 


02055 

740100 


SMA 


/NEC, 8 ALPHA 

02056 

602072 


JMP 

CRLf-3 

/NUMERIC 

02057 

242053 


XOR 

• •4 


02060 

243224 


XOR 

K300 

/make alpha 

02061 

102032 


JMS 

PCHAR 

/P«INT ACS 10*17 

02062 

443145 

CK3 

192 

CT32 

/CHECK FOR 3 CHARACTERS 

02063 

741000 


SKP 



02064 

602040 


JMP 

PNXT*! 

/GET NEXT 3 CHARACTERS 

02065 

202075 


LAC 

CRL? 

/POSITION NEXT 

02066 

742020 


RTR | RTR| RTR 


02067 

742020 





02070 

742020 





02071 

602046 


JMP 

MASK 

/PRINT IT 

02072 

203142 


LAC 

BITCON 


02073 

343215 


TAD 

K200 

/make numeric 

02074 

602061 


JMP 

CK3-1 



/ 

.EJECT 



PAGI 31 


MXCH15 


MXCH15 


/carriage return, line feed 


/ 


02075 

000000 

CRLF 

0 


02076 

760215 


law 

215 

02077 

102032 


JMS 

PCHAR 

02100 

542102 


SAD 

• *2 

CRL |r 

02101 

622075 


JMP* 

02102 

760212 


law 

212 

02103 

602077 


JMP 

CRLF*2 



/PRINT 

SPACES 


02104 

000000 

3PING 

0 


02105 

760240 


LAW 

240 

02106 

102032 


JMS 

PCHAR 

02107 

443149 


ISI 

CT32 

02110 

602105 


JMP 

SPING41 

02111 

622104 


JMP# 

SPINS 



/print 

SIX DIGIT OCTAL NUMBERS 

02112 

000000 

PROCTl 

0 


02113 

777772 


LAW 

■ 6 

02114 

043145 


DAC 

CT3 2 

02115 

202075 


LAC 

CRL^ 

02116 

744010 

POIITN 

RCLl 

RTL 

02117 

742010 




02120 

042075 


DAC 

CRL? 

02121 

740010 


RAL 


02122 

503207 


AND 

K7 

02123 

343221 


TAD 

K260 

02124 

102032 


JMS 

PCHAR 

02125 

443145 


I8i 

CT32 

02126 

602115 


JMP 

POSlTN-1 

02127 

622112 


JMP# 

prqgtl 


/ 


• EJECT 


/ASCII CR 


/EXIT 

/L F 

/ASCII SPACE 

/COUNTER 

/EXIT 

/DIGIT COUNTER 
/QGTAL NUMiER 


/P«INT 

/POSITION NEXT DIGIT 

/EXIT 



PAGE 32 MXCH15 MXCH15 




/XCH15 

A 

- TAPE 3 





/ROUTINE TO DETERMINE HELD FOR 

RELOCATION 

02130 

202677 

CMOVE 

LAC 

ERTSl 


02131 

043251 


DAC 

ERWRD 


02132 

203153 


LAC 

LASTl 

/last to test 

02133 

543152 


SAD 

fjrsti 

/don't move if equal 

02134 

600216 


JMP 

RTNl 

/return 

02135 

203124 


LAC 

FLAGS 

/program flags 

02136 

741100 


SPA 


/FORCED move made IF a 1. 

02137 

600216 


JMP 

RTNl 

/DON'T MOVE 

02140 

740020 


RAR 


/LINK * BIT 17 

02141 

741400 


S2L 


/FIRST MOVE IF SKIP 

02142 

602227 


JMP 

NXTMy 

/setup for NEXT move 

02143 

443124 


x sz 

FLAGS 

/SET FLAG FOR 1ST MOVE 

02144 

203153 


LAC 

LASTl 


02149 

043125 


DAC 

INSFtO 


02146 

770000 


law 

-10000 

/- 4K 

02147 

343125 


TAD 

INSFlO 

/SUBTRACT 4 K FROM CURRENT 

02150 

043174 


DAC 

NXLOC 

/N*LOC * DEST'N FOR NEXT TIME 

02151 

100653 


JMS 

WHERE 

/WHERE ARE WE NOW 

02152 

543125 


SAD 

insfld 

/already In last i if equal 

02153 

602212 

A 

JMP 

SU01 

/ TRY NEXT LOWER 



/NOW CHECK FOR 

ERROR RECORDED IN NEW FIELD 

02154 

760000 

CKCRR 

LAW 



02155 

563251 


SAD* 

ERWRD 

/NO ERRORS JF * LAW 

02156 

602167 


JMP 

STMV 

/initialize MOVE 

02157 

223251 


LAC* 

ERWRD 


02160 

543125 


SAD 

INSFLD 

/ERROR IN FIELD IF EQUAL 

02161 

602201 


JMP 

equal 


02162 

443251 


I S3 

ERWRO 

/pointer * l 

02163 

203251 


lac 

ERWRD 


02164 

542700 


SAD 

ENERR 

/END OF TABLE IF EQUAL 

02165 

741000 


SKP 



02166 

602157 


JMP 

CKERR*3 


02167 

202677 

STMV 

LAC 

ERT*L 


02170 

043251 


DAC 

ERWRD 

/restore pointer 

02171 

203125 


LAC 

insfld 

/new field 

02172 

043176 


DAC 

DESTN 


02173 

100653 


JMS 

WHERE 


02174 

043175 


DAC 

SOURCE 


02175 

543176 


SAD 

DESTn 


02176 

602216 


JMP 

RTNl 

/new and current are equal 

02177 

203176 


LAC 

DESTN 


02200 

602346 

A 

JMP 

MOVE 

/move program 



f 

.EJECT 





PAGE 33 MXCH15 MXCH15 

/ERROR IN NEW FIELD t TRY NEXT LOWE* 


/ 


02201 

543152 

equal 

SAD 

riRSTl 

/DON’T TRY NEXT IF EQUAL 

02202 

602224 


JMP 

DNMVE 


02203 

741200 


SNA 


/IS IT FIELD 0 

02204 

602210 


JMP 

• * 4 

/YES 

02205 

770000 


law 

•10000 

/-4K 

02206 

343125 


TAO 

INSFLD 

/SUBTRACT 4 K FROM NEW FIELD 

02207 

043174 


DAC 

NXLOC 

/next new field 

02210 

202677 


LAC 

ertbl 


02211 

043251 


OAC 

ERWRQ 

/restore pointer 

02212 

203174 

SU01 

LAC 

NXLOC 

/next new field 

02213 

543125 


SAD 

INSFLD 

/ I S IT = CURRENT new field 

02214 

602201 


JMP 

EQUAL 

/T«Y NEXT LOWER 

02215 

043125 


OAC 

INSFLD 

/new new field 

02216 

543152 


SAD 

FIRSil 

/does it * LOWEST FIELD 

02217 

602154 


JMP 

CKEHR 

/CHECK FOR ERROR 

02220 

770000 


law 

•10000 


02221 

343125 


TAO 

INSFLD 

/SUBTRACT 4K 

02222 

043174 


DAC 

NXLOC 

/NEW FIELD FOR NEXT PASS 

02223 

602154 


JMP 

CKCRR 


02224 

202677 

y 

DNMVE 

lac 

ERT&L 


02225 

043251 


OAC 

ERWRD 

/RESTORE POINTER 

02226 

600216 

j 

JMP 

RTNl 

/START over 



/ 

•EJECT 





PAGE 34 MXCHl? MXCH15 

/ 

/ROUTINE TO DETERMINE PROGRAM DEST’N AFTF.R MAKING ONE MOVE 


/ 


02227 

100653 

NXTMV 

JMS 

WHERE 

/WHERE IS PROGRAM now 

02230 

043175 


OAC 

SOURCE 


02231 

760000 

cknxt 

law 



02232 

563251 


SAD* 

ERWHD 

/NO ERRORS IF 1ST = LAW 

02233 

602246 


JMF 

STNXT 

02234 

202677 


LAC 

ERTBl 


02235 

043251 


DAC 

ERWRD 


02236 

223251 


LAC* 

ERWHD 

/GET AN ERROR ADDRESS 

02237 

543174 


SAD 

NXLOC 


02240 

602266 


JMP 

SUS2 

/ERROR IN NEXT FIELD TRY NEXT 

02241 

443251 


I S 2 

ERWRD 


02242 

203251 


LAC 

ERWRD 


02243 

542700 


SAD 

ENERR 


02244 

741000 


SKP 


/done table and no errors 

02245 

602236 


JMP 

cknxt*5 


02246 

202677 

STNXT 

LAC 

ERTBl 


02247 

043251 


DAC 

ERWRD 

/restore pointer 

02250 

203174 


lac 

nxloc 

/new field 

02251 

543125 


S AO 

insfld 

/DOES IT a CURRENT field 

02252 

602255 


JMP 

.♦3 

FIRST! 


02253 

543152 


SAD 

/DOES It * LOWEST FIELD 

02254 

602303 


JMP 

MV0K 

/yes. clear flags and move 

02255 

543152 


SAD 

FIRST! 

/does the cu Rent also® 

/the LOWEST field. 

02256 

602277 


JMP 

NXTHj 

/YES, SETUP FOR HIGHEST FIELD 

02257 

043125 


DAC 

insfld 

/NEW CURRENT FIELD 

02260 

770000 


LAW 

-10000 

/-*K 

02261 

343125 


TAD 

insfld 


02262 

043174 


DAC 

NXL&C 

/new next field 

02263 

203125 


lac 

insflo 


02264 

043176 


DAC 

oestn 


02265 

602346 


JMP 

.EJECT 

MOVE 

/move from here to c (destni 



PACE 


35 

MXCHl? 

MXCH15 




02266 

203174 

/ 

SUB2 

LAC 

nxloc 

/ I s NEXT = FIELD 00 OR 1ST 

02267 

543152 


SAD 

FIRST! 


02270 

602224 


JMP 

DNMVE 

/ Y E S , Don’t MOVE 

02271 

770000 


law 

-10000 

/-4k 

02272 

343174 


TAD 

NXL°C 

/new next field 

02273 

043174 


DAC 

NXLOC 


02274 

543125 


SAD 

INSFlD 

/DOES IT = CURRENT FIELD 

02275 

602267 


JMP 

SUB2*1 

/yes 

02276 

602234 


JMP 

CKNXT*3 

/SEE IF eKROR IN NEW FIELD 

02277 

203153 

y 

NXTHI 

LAC 

LASTl 

/last to test 

02300 

503245 


AND 

K370K 


02301 

043174 


DAC 

NXLOc 

/last « next field 

02302 

602234 


JMP 

CKNXT43 

/CHECK FOR ERROR 

02303 

100653 

/ 

mvbk 

JMS 

WHEHE 


02304 

043175 


DAC 

SOURCE 


02305 

203174 


LAC 

NXLOC 


02306 

043125 


DAC 

INSFLD 


02307 

043176 


DAC 

oestn 


02310 

143124 


DIM 

flags 


02311 

602346 


JMP 

MOVE 



/ 

•EJECT 



PACE 36 MXCH15 MXCH15 

/routine to force move the program^ destination 
/field* must BE TYPED in BY THE operator (00-37 OCTAL), 


/ 


02312 

203243 

FCDMV 

LAC 

K400K 


02313 

740001 


CMA 



02314 

503124 


AND 

flags 


02315 

243243 


X0R 

K400K 

/SET BIT 0 FOR FCDMV FLAG 

02316 

043124 


DAC 

FLAGS 


02317 

202677 


LAC 

ERT0L 


02320 

043251 


OAC 

ERWRD 

/restore Table pointer 

02321 

102455 


JMS 

GOTO 

/PRINT GO TO FIELD 



/CHECK 

FOR ERROR IN NEW FIELD 


02322 

760000 

y 

CKPCD 

law 



02323 

563251 


SAD# 

ERWRD 

/NO ERRORS IF 1ST ■ LAW 

02324 

602346 


JMP 

MOVE 

/SEE WHERE TO GO 

02325 

223251 


lac# 

ERWRD 


02326 

543176 


SAD 

OCSTn 

/DOES ERROR s NEW FIELD 

02327 

602335 


JMP 

XPRT 

/yes, print message 

02330 

443251 


IS* 

ERWRD 

/pointer*i 

02331 

203251 


lac 

ERWRD 


02332 

542700 


SAD 

ENIRR 

/see if end of table 

02333 

602336 


JMP 

.♦3 

/done and no errors 

02334 

602325 


JMP 

CKFCDT3 


02335 

102433 

XPRT 

M 

JMS 

PRSEL 

/PRINT ERROR IN SELECTED 4K 

02336 

202677 

/ 

LAC 

ertbl 


02337 

043251 


DAC 

ERWRD 


02340 

203176 


LAC 

destn 


02341 

543175 


SAD 

SOURCE 


02342 

600216 


JMP 

RTNl 


02343 

043125 


DAC 

insfld 


02344 

503242 


AND 

K300K 


02345 

043201 


OAC 

P I NX 



/ 

.eject 



PACE 37 MXCH15 MXCHJ.3 


/ 

/ROUTINE TO RELOCATE THE PROGRAM 
/ 


02346 

142603 

move 

dhm 

lqcer 


02347 

203176 


LAC 

destn 


02350 

503242 


AND 

K300K 


02351 

043201 


DAC 

PIN* 


02352 

770000 


law 

-10000 

/«4K 

02353 

043146 


DAC 

CT4K 

/4K COUNTER 

02354 

203175 


LAC 

SOURCE 

/current field 

02355 

043177 


OAC 

MOVES 


02356 

740031 


CMAJ X AC 



02357 

343176 


TAD 

OESTn 


02360 

721000 


PAX 


/new field 

02361 

143204 


D2M 

MEMADR 

/LDC zero START 

02362 

223177 

MOSOM 

lac# 

MOVES 

/move from current 

02363 

043141 


DAC 

TNUM 

/SAVE 

02364 

102442 


JMS 

RT1?l 


02365 

050000 


DAC 

X 

/PUT IN nEW FIELD 

02366 

210000 


LAC 

X 

/read back 

02367 

563177 


SAD* 

MOVES 

/compare 

02370 

741000 


SKP 


/ok 

02371 

102554 


JMS 

MVEHR 

/PRINT ERROR INFO 

02372 

443177 


132 

moves 

/INCREMENT addresses 

02373 

737001 


AXR*1 



02374 

443146 


I S 2 

CT4K 


02375 

741000 


SKP 



02376 

602424 


JMP 

DINO 


02377 

203141 


LAC 

TNUM 


02400 

542655 


SAD 

DLMT 

/DELIMITING character 

02401 

741000 


SKP 


/ADJUST INDIRECTS 

02402 

602362 


JMP 

mosqm 


02403 

223177 

A J X N 

LAC* 

MOVES 


02404 

542716 


SAD 

DLMTA 

/DONE INDIRECTS IF EQUAL 

02405 

602363 


JMP 

MOSOM*l 


02406 

503233 


AND 

K7777 

/mask address bits 

02407 

243176 


XOR 

destn 

/put FIELD number on it 

02410 

102442 


JMS 

RT1?l 


02411 

050000 


DAC 

X 

/put IN NEW field 

02412 

210000 


LAC 

X 

/read back 

02413 

503233 


AND 

K7777 


02414 

243175 


XOR 

SOURCE 


02415 

563177 


SAD* 

MOVES 

/COMPARE 

02416 

741000 


SKP 


/OK 

02417 

102554 


JMS 

mvcrr 

/PRINT ERROR INFO 

02420 

443177 


152 

moves 

/INCREMENT addresses 

02421 

737001 


AXR*1 



02422 

443146 


JS2 

CT4K 


02423 

602403 


JMP 

AJXN 


02424 

102530 

D X ND 

JMS 

ENOT 

/WAS TRANSFER Made ok 

02425 

203175 


LAC 

SOURCE 


02426 

740031 


CMAIJAC 



02427 

343176 


TAO 

destn 


02430 

721000 


PAX 
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38 

MXCH1I 

MXCH15 

02431 

740000 

NOP 

02432 

610216 

JMP RTNl.X 



/ 



.EJECT 


/EXIT From were to loc 
/rtni In new field 
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/ 




/PRINT 

ERROR 

IN SELECTED 4K 



02433 

000000 

PRSEl 

0 




02434 

102075 


JMS 

crlf 

/C«, LF 


02435 

202715 


LAC 

ersel 

/text pointer 


02436 

043157 


DAC 

PRNT 



02437 

102037 


JMS 

PNXf 

/PKINT 


02440 

102075 


JMS 

CRLF 



02441 

602312 


JMP 

FCQMV 

/wait for another 

CHOICE 



/ROTATE 

INSTRUCTION 19 LEFT 

BEFORE MOVING 


02442 

000000 

RT19l 

0 




02443 

744000 


CLL 


/LINK ® 0 


02444 

043141 


DAC 

TNUM 

/S A VE 


02445 

777767 


law 

-11 

/-* DECIMAL 


02446 

043151 


DAC 

CT04 

/SHIFT COUNT 


02447 

203141 


LAC 

TNUM 

/INSTRUCTION 


02450 

740010 


RAL 




02451 

742010 


RTl 




02452 

443151 


IS? 

CT04 



02453 

602451 


JMP 

i -2 



02454 

622442 

j 

JMP# 

rti?l 





/KEYBOARD ROUTINE FOR FORCED 

J 

RELOCATION 


02455 

000000 

GOTO 

0 




02456 

750004 


las 


/READ Acs 


02457 

503212 


AND 

K40 



02460 

741200 


SNA 


/check bit 12 


02461 

602473 


JMP 

NOSW 

/equals 0 


02462 

102075 


JMS 

CRLF 

/ch.lf 


02463 

202704 


LAC 

PTWLV 

/text pointer 


02464 

043157 


DAC 

PRNT 



02465 

102037 


JMS 

PNXT 

/print put ACS 12 

on a 0 

02466 

750004 


las 




02467 

503212 


AND 

K40 



02470 

740200 


SZA 


/wait for the 0 


02471 

602466 


JMP 

,-3 



02472 

102075 


JMS 

CRLF 

/C«»LF X 2 


02473 

102075 

NOSW 

JMS 

crlf 



02474 

202705 


LAC 

GQFL 

/text pointer 


02475 

043157 


DAC 

PRNT 



02476 

102037 


JMS 

PNXT 

/P«INT GO TO FIELD 

«■» 

02477 

101547 


JMS 

KEVIN 

/wait For input 


02500 

543217 


SAD 

K212> 

/A OR - NO FORCED 

MOVE 






/AND resume auto relocate 

02501 

602547 


JMP 

cflc 

/clear the FORCED 

move flag 


/ 

.EJECT 
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02302 

543227 


SAD 

K377 

/RUBOUT, RE-PRINTI go to field 

02303 

602473 


JMF 

NOSW 


02304 

742020 


RTR | 

RTR 


02303 

742020 





02306 

503242 


AND 

K30K3K 

/mask bits i,2, 

02307 

043176 


DAC 

destn 

/FIRST char, OF FIELD NO, 

02510 

101547 


JMS 

KEY 1 N 

/wait for input, 

02511 

543217 


SAD 

K213 

/A CR • NO FORCED MOVE 






/AND RESUME auto relocate. 

02512 

602547 


JMP 

CFLO 

/CLEAR THE FORCED MOVE FLAG, 

02513 

543227 


SAD 

K 3 7 7 

/RUBOUT, RE-PR 1 NT I GO TO FIELD 

02314 

602473 


JMP 

NOSW 


02513 

742020 


RTRl 

RTRl RTRl 

raR 

02516 

742020 





02317 

742020 





02320 

740020 





02321 

503240 


AND 

K70K 

/mask bits 3.4 $ 5 , 

02522 

243176 


XOR 

oestn 

/OR FIRST £ SECOND CHARS, 

02523 

043176 


DAC 

DESTN 

/NEW FIELD, 

02324 

100653 


JMS 

WHERE 

/where are we now 

02323 

043173 


DAC 

SOURCE 

/current fjelo 

02526 

102073 


JMS 

crlf 

/cr. lf 

02327 

622453 


JMP# 

GOTO 

/CHECK for ERROR 

02330 

000000 

ENOT 

0 



02331 

202603 


LAC 

locer 


02332 

741200 


SNA 


/NO ERRORS IF 0 

02533 

622530 

i 

JMP* 

KNOT 

/ENTER NEW FIELD 

02534 

707704 

/ 

LEM 



02535 

142603 


D2M 

LOCER 


02336 

102073 


JMS 

CRL? 

/CR.LF 

02537 

202707 


LAC 

nern 

/text pointer 

02540 

043157 


DAC 

PRNT 


02541 

102037 


JMS 

PNXT 

/PRINT NO MORE ERRORS 

02542 

102073 


JMS 

CRLf 

/CR # LF 

02343 

203124 


LAC 

FLAGS 


02544 

741100 


SPA 


/ACS 0 A 1 > FORCED MOVE 

02545 

602312 


JMP 

FCOMV 

/wait for another choice 

02546 

602246 


JMP 

stnxt 

/try next field LOWER 

02547 

203243 

CPLG 

LAC 

K400K 


02550 

740001 


CMA 



02551 

303124 


ANO 

FLAGS 

/clear the forced move flag 

02552 

043124 


DAC 

FLAGS 


02553 

600216 


JMP 

RTN1 

/start over 




.EJECT 
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MXCH15 

MXCH15 




02554 

000000 

/ 

MVIRR 

0 



02555 

043154 


DAC 

BAOl 

/save Incorrect instruction 

02556 

721000 


PAX 


/FIELD AND ADDRESS 

02557 

043155 


0 AC 

OCAUR 

/SAVE 

02560 

223177 


LAC* 

MOVES 

/correct Instruction 

02561 

043156 


DAC 

GOQOl 

/SAVE 

02562 

202621 


LAC 

PHQH 


02563 

741200 


SNA 



02564 

102621 


JMS 

PHDH 


02565 

202603 


lac 

lqcer 


02566 

741200 


SNA 


/DON*T print IF 1 

02567 

102603 


JMS 

locer 

/PRINT program relocation error 

02570 

202620 


LAC 

JMP4 

/ jMP LOceR»3 

02571 

041013 


DAC 

INDY 


02572 

102075 


JMS 

CRL? 


02573 

777766 


LAW 

•12 

/-10 DECIMAL 

02574 

600765 

J 

JMP 

STE« 

/PRINT info 

02575 

200766 

/ 

LAC 

STCR*1 

/EQUALS JMS sping 

02576 

041013 


DAC 

I NOT 


02577 

750004 


LAS 



02600 

741100 


SPA 



02601 

100660 


JMS 

malt 


02602 

622554 


JMP* 

mvehr 

/emt 

02603 

000000 

j 

10CER 

0 



02604 

102075 


JMS 

CRL^ 

/CR.LF 

02603 

202706 


LAC 

relqc 

/text pointer 

02606 

043157 


DAC 

PRNT 


02607 

102037 


JMS 

PNXT 

/PRINT PROGRAM RELOCATION ERROR 

02610 

102075 


JMS 

crl! 

/CR,LE X 2 

02611 

622603 

J 

JMP* 

LQCER 

/EXIT AND PRINT THE ERROR 

02612 

000000 

WOT I S 

0 



02613 

102075 


JMS 

CRLF 

/CR.LE 

02614 

760277 


LAW 

277 

/QUERY MARK 

02615 

102032 


JMS 

pchar 

/PRINT 

02616 

102075 


JMS 

CRLf 

/CR.LP 

02617 

622612 

j 

JMP* 

WOT IS 

/E x I T 

02620 

602575 

/ 

JMP3 

JMP 

L.OCER-6 





.EJECT 

' 
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/ 

/header routine 


/ 


02621 

000000 

PHDR 

0 



02622 

102075 


JMS 

CRL[ 

✓C*iLF 

02623 

202710 


lac 

TSTX 

/POINTER FOR ’’TEST 

02624 

043157 


DAC 

PRNT 


02625 

102037 


JMS 

PNXT 

/PRINT TEST 

02626 

102650 


JMS 

CLMN 

/SPACE 5 

02627 

2027H 


LAC 

adrxa 

/’’OCTAL ADR," 

02630 

043157 


DAC 

PRNT 


02631 

102037 


JMS 

PNXT 


02632 

102650 


JMS 

CLMN 

/SPACE 5 

02633 

202712 


LAC 

GOATX 

/ ** C 0 0 D *' 

02634 

043157 


DAC 

PRNT 


02635 

102037 


JMS 

PNXT 


02636 

102650 


JMS 

CLMN 

/SPACE 5 

02637 

202713 


LAC 

BOATX 

/"BAD" 

02640 

043157 


DAC 

PRNT 


02641 

102037 


JMS 

PNXf 


02642 

102650 


JMS 

CLMN 

/SPACE 5 

02643 

202714 


LAC 

PCWX 

/’’PAT.CONTROL WORD 

02644 

043157 


DAC 

PRNT 


02645 

102037 


JMS 

PNXT 


02646 

102075 


JMS 

CRL t 

/C«»LF 

02647 

622621 


JMP* 

phoh 

/DONE 

02650 

000000 

CLMN 

0 



02651 

777773 


LAW 

•5 


02652 

043145 


DAC 

CT32 


02653 

102104 


JMS 

SPINS 

/SPACE 

02654 

622650 


JMP# 

CLMN 



/ 

•EJECT 
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/ 

/RETURN ADDRESSES MnDJRECTS) 


/ 


02655 

752521 

OLMT 

752521 


02656 

002761 

TSNX 

tstnr 

/TEST#-. 

02657 

002765 

ADRX 

FADR1 

/FIRST A D R , " 

02660 

001074 

AD1R 

AORl 


02661 

001124 

OON1 

dfst 


02662 

002773 

AOXR 

LADR1 

/LAST ADRi- 

02663 

001150 

AD2R 

ADR2 


02664 

001176 

DON 2 

DLST 


02665 

003000 

SURX 

SUPR 

/S OPPRESS* 

02666 

001414 

SUPXA 

SUPB I T*1 


02667 

003063 

adrip 

FRST 

/first 

02670 

003067 

ADR2P 

lsta 

/last 

02671 

003005 

OVRLP 

ovRlap 

/aor, is within program 

02672 

003037 

P ! S I N 

PRO I S 

/PROGRAM is in field 

02673 

003050 

TL.MX 

TSLM 

/TEST LIMITS 

02674 

001661 

SLHX 

SLMTS^l 


02675 

001756 

DON3 

crevr 


02676 

003056 

SETX 

STAGS 

/SETUP ACS 

02677 

003252 

ERTBl 

erwrd*i 


02700 

003312 

ENERR 

ERWRD^4i 


02701 

003073 

PTO 

PTO I 


02702 

001652 

rota 

ROTC 


02703 

001652 

ROTB 

ROTC 


02704 

003112 

PTWLV 

PUT12 


02705 

003104 

GOFL 

gopld 


02706 

003016 

RELOC 

PROR 


02707 

003030 

nern 

noho 


02710 

002717 

TSTX 

TST 


02711 

002723 

ADRXA 

ADR 


02712 

002730 

GOATX 

GOAT 


02713 

002734 

BDATX 

BOAT 


02714 

002737 

PCWX 

PCWR 


02715 

002747 

ersel 

3LTER 


02716 

752522 

olhta 

752522 
i EJECT 
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MXCH13 


MXCH13 


/ 

/CONSTANTS FOR PRINT ROUTINE TEXTS • PACKED 
/3 characters per word, 

/ 

/"TEST" 


02717 

002717 

TST 

i 




02720 

230524 


2303241 

7777g4| 

0 


02721 

777724 





02722 

000000 






02723 

002723 

ADR 

2403171 




02724 

240317 


401401) 

22040U 

0 

02723 

401401 






02726 

220401 






02727 

000000 






02730 

002730 

y 

GOAT 

• 




02731 

171707 


1717071 

777704) 

0 


02732 

777704 






02733 

000000 






02734 

002734 

BOAT 





02733 

040102 


0401021 

0 



02736 

000000 






02737 

002737 

PCWR 

i 




02740 

240120 


2401201 

170340) 

2224161 

401417 

02741 

170340 






02742 

222416 






02743 

401417 






02744 

221727 


2217271 

777704J 

0 


02743 

777704 





02746 

000000 






02747 

002747 

slter 

i 




02750 

222205 


2222051 

402217 1 

401611) 

140523 

02731 

402217 





02752 

4016H 






02753 

140523 






02734 

240305 


2403051 

400405) 

051106) 

770414 

02753 

400405 





02756 

051106 






02757 

770414 






02760 

000000 

J 

0 




02761 

002761 

f 

TSTNR 

• 




02762 

230524 


2303241 

7740241 

0 


02763 

774024 






02764 

000000 






02765 

002765 

j 

FAOR1 

• 




02766 

221106 


2211061 

402423) 

220401) 

777740 

02767 

402423 





02770 

220401 






02771 

777740 








PAGE 


45 

HXCH19 

MXCH15 




02772 

000000 


0 



02773 

02774 

02775 

02776 

02777 

002773 

230114 

014024 

402204 

000000 

/ 

L A P R 1 

2301141 

0 

014024) 

402204 

03000 

03001 

03002 

03003 

03004 

003000 

202523 

052220 

402323 

000000 

SUPR 

202523) 

052220) 

402323) 0 


EJECT 
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MXCH13 


MXCH15 



13,1024 


0 

171403 

221722 

172222 

114023 

0 

772324 


0 
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MXCH19 

MXCH15 





03065 

402423 






03066 

000000 






03067 

003067 

ISTA 

230H4J 




03070 

230114 


774024) 

0 


03071 

774024 






03072 

000000 






03073 

003073 

PTO I 

1 




03074 

112220 


1122201 

4024 X 6J 

242517) 

114023 

03075 

402416 






03076 

242517 






03077 

114023 






03100 

111016 


111016| 

241102) 

770405) 

0 

03101 

241102 






03102 

770405 






03103 

000000 






03104 

003104 

GOFlO 

• 




03105 

401707 


401707J 

401724) 

051106) 

400414 

03106 

401724 





03107 

051106 






03110 

400414 






03111 

000000 


0 




03112 

003112 

PUT12 

• 




03113 

242520 


242520 1 

0301401 

614023) 

174062 

03114 

030140 






03115 

614023 






03116 

174062 






03117 

014016 


0140161 

776040) 

0 


03120 

776040 






03121 

000000 
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/STORAGE AND CONSTANT REGISTERS 


03122 

777770 

/ 

SIXT4 

LAW 

03123 

000000 

NOPRnT 

0 

03124 

000000 

FLAGS 

0 

03125 

000000 

INSFLO 

0 

03126 

000000 

last 

0 

03127 

000000 

mcwa 

0 

03130 

000000 

PCW 

0 

03131 

000000 

CNTRL 

0 

03132 

463144 

PCWA 

463144 

03133 

631460 

PCWB 

631460 

03134 

523250 

PCWC 

523230 

03135 

000000 

PATR 

0 

03136 

000000 

PATG 

0 

03137 

000000 

PATWD 

0 

03140 

000000 

PATN 

0 

03141 

000004 

TNUM 

4 

03142 

000000 

BITCON 

0 

03143 

000000 

SVADR 

0 

03144 

000000 

CT02 

0 

03145 

000000 

CT32 

0 

03146 

000000 

CT4K 

0 

03147 

000000 

Ctl6 

0 

03150 

000000 

CT128 

0 

03151 

000000 

CT04 

0 

03152 

000000 

FIRST1 

0 

03153 

000000 

LAST1 

0 

03154 

000000 

BAD1 

0 

03155 

000004 

OCADR 

4 

03156 

000000 

GOOOl 

0 

03157 

000000 

PRNT 

0 

03160 

000000 

ADRCW 

0 

03161 

000004 

EXIT 

4 

03162 

000000 

OVER 

0 

03163 

000000 

AORA 

0 

03164 

000000 

AORB 

0 

03165 

000004 

NROTA 

4 

03166 

000000 

LT8T 

0 

03167 

000000 

TTYW 

0 

03170 

000000 

TTYX 

0 

03171 

000000 

TTYY 

0 

03172 

000000 

sew 

0 ’ 

03173 

777777 

BITSUP 

law 

03174 

000000 

NXLQC 

0 

03175 

000000 

SOURCE 

0 

03176 

000000 

oestn 

0 

03177 

000000 

moves 

0 

03200 

000216 

BGNLO 

RTN1 

03201 

000000 

PINX 

0 

03202 

000000 

SXR 

0 

03203 

000000 

WORK 

0 

03204 

000000 

memadr 

0 

.EJECT 


/COUNTS 64 PASSES BETWEEN 

/e h ROR print suppression, 

/INDICATES end of error print-outs 
/saves subroutine flags 
/current field with program 
/last field with data error 

/SAVES ACS SETTINGS 

/current pat, control words 

/SAME AS pcw 

/CONTROL WORD FOR test 1 

/FOR TEST 2 

/FOR TEST 3 

/ROTATES CONTROL word 

/SAVES GOOD DATA DURING READ 

/SAME AS PATG BUT HAS SUPPRESSES BITS 

/HAS CONTROL WORD TO ROTATE 

/ASCII TEST NUMBER 

/FIELD COUNTER 


/4K COUNTER 
/COUNTS 16 ROTATES 
/COUNTS 120 LOCATIONS 
/UTILITY counter 
/FIRST FIELD TO TEST 

/last field to test 
/SAVES BAD data 
/SAVES FAILING octal A DRESS 
/good Data 

/POINTER FOR PRINT ROUTINES 
/PARTIAL address word 
/TO DISMISS 

/POINTER To START OF SUBROUTINES 
/i?T ADR, FROM KEYBOARD INPUT 
/LAST ADR, FROM KEYBOARD INPUT 
/ROTATE counter 
/LAST ADR, FOR SCOPE LOOPS 

/tTyw thru yy used for keyboard 

/INPUT BIT SUPPRESSION 

/temp storage of suppressed bits 

/EACH SUPPRESSED BIT * 0 

/next field to move into 

/FIELD TO MOVE FROM 
/FIELD TO MOVE TO 

/save as moved 

/EXIT ADR, TO A NEW FIELD 

/STORAGE of mem, block that prog, is in 

/storage LOG. FOR xr, 
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03205 000001 

03206 000002 

03207 000007 

03210 000010 

03211 000020 

03212 000040 

03213 000077 

03214 000100 

03215 000200 

03216 000212 

03217 000215 

03220 000254 

03221 000260 

03222 000264 

03223 000270 

03224 000300 

03225 000331 

03226 000370 

03227 000377 

03230 000400 

03231 004000 

03232 007700 

03233 00777$ 

03234 010000 

03235 017777 

03236 020000 

03237 040000 

03240 070000 

03241 074000 

03242 300000 

03243 400000 

03244 177777 

03245 370000 

03246 700000 

03247 770000 

03250 777700 

03251 . 003252 

03252 760000 

03253 760000 

03254 760000 

03255 760000 

03256 760000 

03257 760000 

03260 760000 

03261 760000 

03262 760000 

03263 760000 

03264 760000 

03265 760000 

03266 760000 

03267 760000 

03270 760000 

03271 760000 

03272 760000 


t 

Ki 1 

K2 2 

K7 7 

K10 10 

K20 20 

K40 40 

K77 77 

K100 100 

K200 200 

K212 212 

K215 219 

K2I4 254 

K260 260 

K264 264 

K270 270 

K300 300 

K331 331 

K370 370 

K377 377 

K400 400 

K4K 4000 

K7700 7700 

K7777 7777 

K10K 10000 

K17S 17777 

K20K 20000 

K40K 40000 

K70K 70000 

K74K 74000 

K300K 300000 

K400K 400000 

K177 177777 

K370K 370000 

K700K 700000 

K770K 770000 

MAXERR LAW 

ERWRO ,*l 

LAW 
LAW 

law 

law 

law 

law 

law 

LAW 

law 

LAW 

LAW 

LAW 

LAW 

law 

LAW 

LAW 

LAW 
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03273 

760000 

law 

03274 

760000 

LAW 

03275 

760000 

law 

03276 

760000 

LAW 

03277 

760000 

LAW 

03300 

760000 

LAW 

03301 

760000 

law 

03302 

760000 

LAW 

03303 

760000 

law 

03304 

760000 

law 

03305 

760000 

LAW 

03306 

760000 

law 

03307 

760000 

law 

03310 

760000 

LAW 

03311 

760000 

law 


000000 

.end 

03312 

770000 «L 



SI9C003313 NO ERROR LINES 
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ADR 02723 
AORA 03163 
AORB 03164 
ADRCW 03160 
ADRX 02657 
ADRXA 02711 
ADR1 01074 
ADR1P 02667 
ADR2 01150 
ADR2P 02670 
ADXR 02662 
AD1R 02660 
AQ2R 02663 
AGAIN 01423 
AJIN 02403 
AUOK 02007 
BAD! 03154 
BOAT 02734 
BDATX 02713 
BEGIN 00200 
BGNLO 03200 
BITCON 03142 
BITSUP 03173 
BRSTA 00550 
BURST 00525 
BUST 00560 
CBANK 00617 
CBOTH 01243 
CENO 00571 
CFLG 02547 
CKAU 00463 
CKERR 02154 
CKPCD 02322 
CKLST 01234 
CKNXT 02231 
CKXY 00472 
CK3 02062 
CL^N 02650 
CUOF 700004 
CUON 700044 
CLSF 700001 
CUX 735000 
CMOVE 02130 
CNROT 01631 
CNTRU 03131 
COMPL 00425 
CREAD 00377 
CREVR 01756 
CRLF 02075 
CT02 03144 
CT04 03151 
CT128 03150 
CT16 03147 
CT32 03145 
CT4K 03146 
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OESTN 03176 
DPST 01124 
OINO 02424 
DLMT 02655 
DLMTA 02716 
DUST 01176 
DNMVE 02224 
DQALL 00323 
DOERR 00742 
OON1 02661 
D0N2 02664 
D0N3 02675 
DOXY 00541 
EBA 707764 
ECH 707702 
ENERR 02700 
ENOT 02930 
EOM 01500 
EOT 01472 
COTA 01504 
ERA 707762 
EQUAL 02201 
ERROR 00673 
ERSIL 02715 
ERSET 00467 
ERTBU 02677 
ERWRD 03251 
EXAH2 00275 
EXAMS 00301 
EXAM4 00305 
EXBA 707741 
EXIT 03161 
EXTST 00271 
PADR 01113 
FAPR1 02765 
FOPMV 02312 
FIRST1 03152 
FLAGS 03124 
FR8T 03063 
GOAT 02730 
GOATX 02712 
GENPAT 00410 
GETAD 01624 
GOFL 02705 
GQPLD 03104 
GQLEFT 01650 
GOOOl 03156 
GOTO 02455 
HALT 00660 
INDY 01013 
INSFLD 03125 
JMP3 02620 
KEYIN 01547 
KRB 700312 
KSF 700301 
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KYBRD 01041 
Ki 03205 
K10 03210 
K10K 03234 
K100 03214 
K17S 03235 
K177 03244 
K2 03206 
K20 03211 
K2&K 03236 
K200 03215 
K212 03216 
K215 03217 
K294 03220 
K2*0 03221 
K2M 03222 
K270 03223 
K300 03224 
K300K 03242 
K331 03225 
K370 03226 
K370K 03245 
K377 03227 
K4K 03231 
K40 03212 
K40K 03237 
K400 03230 
K400K 03243 
K7 03207 
K70K 03240 
K700K 03246 
K74K 03241 
K77 03213 
K770K 03247 
K7700 03232 
K7777 03233 
LADR 01165 
UA0R1 02773 
LAST 03126 
LA8T1 03153 
LEGAL 01556 
LEM 707704 
LOCAT 01571 
LOCER 02603 
LSTA 03067 
LTST 03166 
MASK 02046 
MAXERR 03250 
MCWA 03127 
MEMAOR 03204 
MOSOM 02362 
MOVE 02346 
MOVES 03177 
MVBK 02303 
MVERR 02554 
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NERN 02707 
NETWK 00366 
NOHO 03030 
NOHOR 00632 
NOPRNT 03123 
NOSW 02473 
NROTA 03165 
NUMB 01522 
NXLOC 03174 
NXTBNK 00643 
NXTHI 02277 
NXTMV 02227 
N64 00502 
OCADR 03155 
OKAS 01774 
OVER 03162 
OVRlAP 03005 
OVRLP 02671 
PATG 03136 
PATN 03140 
PATR 03135 
PATWD 03137 
PAX 721000 
PCF 700202 
PCMAR 02032 
PCW 03130 
PCWA 03132 
PCWB 03133 
PCWG 03134 
PCWR 02737 
PCWX 02714 
PHDR 02621 
PJNX 03201 
PJSIN 02672 
PNXT 02037 
POSJTN 02116 
PRNT 03157 
PROCTL. 02112 
PROG 01376 
PROJS 03037 
PROR 03016 
PRSEl 02433 
PSA 700204 
PSB 700244 
PSP 700201 
PTO 02701 
PTQI 03073 
PTWIV 02704 
PUT12 03112 
QUERY 01567 
RCF 700102 
RCOM 00445 
READ 00435 
REIOC 02706 
ROTA 02702 
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ROTB 02703 
ROTC 01652 
ROTOR 01462 
RRB 700112 
RSA 700104 
RSB 700144 
RSF 700101 
RTN1 00216 
RT19L 02442 
SBA 707761 
SCPl 01334 
SOW 03172 
SETAC 02013 
SETU1 00610 
SETX 02676 
S I MU 01276 
S I Ml 01312 
SIH2 01330 
S|H3 01332 
S I M 4 01355 
SIXT4 03122 
SUMTS 01660 
SLMX 02674 
SITER 02747 
SOURCE 03175 
SPING 02104 
STAGS 03056 
STER 00765 
STIP 01222 
STMV 02167 
STNXT 02246 
STOVER 00247 
ST3CP 01346 
SUB1 02212 
9UB2 02266 
SUPBIT 01413 
SUPR 03000 
SUPX 02665 
SUPXA 02666 
SVADR 03143 
SW0 00736 
SW1 00730 
SW2 00716 
SXR 03202 
TCF 700402 
TL.MX 02673 
TIS 700406 
TNUM 03141 
TSF 700401 
TSUM 03050 
TSNX 02656 
TST 02717 
TSTN 01071 
TSTNO 01042 
TSTNR 02761 
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page 
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TSTX 

02710 

TSTl 

00327 

TST2 

00340 

TST3 

00351 

TST4 

00362 

TTYW 

03167 

TTYX 

03170 

TTYY 

03171 

WCNT 

00417 

WHERE 

00653 

WONS 

00532 

WORK 

03203 

WOT | S 

02612 

WRITE 

00430 

XPRT 

02335 

Y64 

00507 

ZERO 

01516 

« EOT 

00000 
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, EOT 

00000 

begin 

00200 

RTN1 

00216 

STOVER 

00247 

EXTST 

00271 

EXAM2 

00275 

EXAM3 

00301 

EXAM4 

00305 

doalu 

00323 

TSTl 

00327 

TST2 

00340 

TST3 

00351 

TST4 

00362 

NETWK 

00366 

cread 

00377 

genpat 

00410 

WCNT 

00417 

COMPL 

00425 

WRITE 

00430 

READ 

00435 

RCOH 

00445 

CKAL 

00463 

ERSET 

00467 

ckxy 

00472 

N64 

00502 

Y64 

00907 

BURST 

00525 

WONS 

00532 

DOXY 

00541 

BRSTA 

00550 

BUST 

00560 

CEND 

00571 

SETU1 

00610 

CBANK 

00617 

NOMOR 

00632 

NXTBNK 

00643 

WHERE 

00653 

HALT 

00660 

ERROR 

00673 

SW2 

00716 

SW1 

00730 

SW0 

00736 

DOERR 

00742 

STER 

00765 

indy 

01013 

KYBRD 

01041 

tstno 

01042 

tstn 

01071 

ADR1 

01074 

FAOR 

01113 

DFST 

01124 

A0R2 

01150 

ladr 

01165 

OUST' 

01176 

STUP 

01222 
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CKLST 

01234 

CBOTH 

01243 

S I MU 

01276 

S I Ml 

01312 

S I M2 

01330 

S I M3 

01332 

SCP1 

01334 

STSCP 

01346 

S I M4 

01355 

PROG 

01376 

SUPBIT 

01413 

AGAIN 

01423 

rotor 

01462 

EOT 

01472 

EOM 

01500 

eqta 

01504 

HERO 

01516 

NUMB 

01922 

KEVIN 

01947 

legal 

01556 

query 

01967 

lqcat 

01571 

getad 

01624 

cnrot 

01631 

goleft 

01650 

ROTC 

01652 

slmts 

01660 

CREVR 

01756 

OKAS 

01774 

ALOK 

02007 

SETAC 

02013 

pchar 

02032 

PNXT 

02037 

MASK 

02046 

CK3 

02062 

CRLF 

02075 

SPING 

02104 

PROCTL 

02112 

PQSITN 

02116 

CMOVE 

02130 

ckerr 

02154 

stmv 

02167 

EQUAL 

02201 

SUB1 

02212 

DNMVE 

02224 

nxtmv 

0222? 

cknxt 

02231 

stnxt 

02246 

SUB2 

02266 

NXTHI 

02277 

mvbk 

02303 

FCDMV 

02312 

CKFCD 

02322 

XPRT 

02335 

Mitfk 

02346 
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MOSOM 02362 
AJIN 02403 
DIND 02424 
PRSEL 02433 
RT19L 02442 
GOTO 02455 
NOSW 02473 
ENOT 02530 
CFIG 02547 
HVERR 02554 
IOCER 02603 
WOT I S 02612 
JMP3 02620 
PHDR 02621 
CL.MN 02650 
DUMT 02655 
TSNX 02656 
AORX 02657 
ADlR 02660 
OONl 02661 
AQXR 02662 
AQ2R 02663 
00N2 02664 
SUPX 02665 
SUPXA 02666 
ADR1P 02667 
AQR2P 02670 
OVRL.P 02671 
P I S I N 02672 
TUMX 02673 
SI.MX 02674 
D0N3 02675 
SETX 02676 
ERTBt 02677 
ENERR 02700 
PTO 02701 
ROTA 02702 
ROTB 02703 
PTWIV 02704 
GOFL 02705 
RELOC 02706 
NERN 02707 
TSTX 02710 
ADRXA 02711 
GDATX 02712 
BDATX 02713 
PCWX 02714 
ERSEl 02715 
OLMTA 02716 
TST 02717 
ADR 02723 
GDAT 02730 
BOAT 02734 
PCWR 02737 
SLTER 02747 
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tstnr 

02761 


FADRl 

02765 


LADR1 

02773 


SUPR 

03000 


OVRLAP 

03005 


PROR 

03016 


NOMO 

03030 


PRO I S 

03037 


TSLM 

03050 


STACS 

03056 


FRST 

03063 


lsta 

03067 


PTOl 

03073 


goflo 

03104 


PUU2 

03112 


SIXT4 

03122 


NOPRNT 

03123 


FLAGS 

03124 


INSFLD 

03125 


LAST 

03126 


MCWA 

03127 


PCW 

03130 


cntrl 

03131 


PCWA 

03132 


PCWB 

03133 


PCWC 

03134 


PATR 

03135 


patg 

03136 


PATWD 

03137 


PATN 

03140 


TNUM 

03141 


BITCON 

03142 


SVADR 

03143 


CT02 

03144 


CT32 

03145 


CT4K 

03146 


CU6 

03147 


CT128 

03150 


CT04 

03151 


FIRST! 

03152 


LAST1 

03153 


BADl 

03154 


OCADR 

03155 


GOOD1 

03156 


PRNT 

03157 


ADRCW 

03160 


EXIT 

03161 


OVER 

03162 


APRA 

03163 


ADRB 

03164 


nrota 

03165 


ltst 

03166 


TTY W 

03167 


TTJ^ 

03170 



03171 
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sew 

03172 

BITSUP 

03173 

NXUOC 

03174 

SOURCE 

03175 

destn 

03176 

MOVES 

03177 

bgnlo 

03200 

PINX 

03201 

SXR 

03202 

WORK 

03203 

MEMADR 

03204 

K1 

03205 

K2 

03206 

K7 

03207 

K10 

03210 

K20 

03211 

K40 

03212 

K77 

03213 

K100 

03214 

K200 

03215 

K212 

03216 

K215 

03217 

K234 

03220 

K260 

03221 

K264 

03222 

K270 

03223 

K300 

03224 

K33l 

03225 

K370 

03226 

K377 

03227 

K400 

03230 

K4K 

03231 

K7700 

03232 

K7777 

03233 

K10K 

03234 

K17S 

03235 

K20K 

03236 

K40K 

03237 

K70K 

03240 

K74K 

03241 

K300K 

03242 

K400K 

03243 

K177 

03244 

K370K 

03245 

K700K 

03246 

K770K 

03247 

MAXERR 

03250 

ERWRD 

03251 

CLSF 

700001 

ClOF 

700004 

CUON 

700044 

RSF 

700101 

RCF 

700102 

RSA 

700104 

RRB 

700112 
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RSB 700144 
PSF 700201 
PCF 700202 
PSA 700204 
PSB 700244 
KSF 700301 
KRB 700312 
TSF 700401 
TCF 700402 
TLS 700406 
EEM 707702 
LEM 707704 
EXBA 707741 
SBA 707761 
EPA 707762 
EBA 707764 
PAX ' 721000 
CLX 735000 



